From 5238ad5a0c4a9e1c8cd036f5de4055e39bd71297 Mon Sep 17 00:00:00 2001
From: Manuel Traut <manut@mecka.net>
Date: Fri, 29 Apr 2011 09:09:27 +0200
Subject: added debootstrap stuff

Signed-off-by: Manuel Traut <manut@mecka.net>
---
 beagle/debian-rfs/usr/share/perl/5.10.1/bytes.pm | 31 ++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 beagle/debian-rfs/usr/share/perl/5.10.1/bytes.pm

(limited to 'beagle/debian-rfs/usr/share/perl/5.10.1/bytes.pm')

diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/bytes.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/bytes.pm
new file mode 100644
index 0000000..7da5512
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl/5.10.1/bytes.pm
@@ -0,0 +1,31 @@
+package bytes;
+
+our $VERSION = '1.03';
+
+$bytes::hint_bits = 0x00000008;
+
+sub import {
+    $^H |= $bytes::hint_bits;
+}
+
+sub unimport {
+    $^H &= ~$bytes::hint_bits;
+}
+
+sub AUTOLOAD {
+    require "bytes_heavy.pl";
+    goto &$AUTOLOAD if defined &$AUTOLOAD;
+    require Carp;
+    Carp::croak("Undefined subroutine $AUTOLOAD called");
+}
+
+sub length (_);
+sub chr (_);
+sub ord (_);
+sub substr ($$;$$);
+sub index ($$;$);
+sub rindex ($$;$);
+
+1;
+__END__
+
-- 
cgit v1.2.3