summaryrefslogtreecommitdiff
path: root/beagle/debian-rfs/usr/share/perl/5.10.1/bytes.pm
diff options
context:
space:
mode:
Diffstat (limited to 'beagle/debian-rfs/usr/share/perl/5.10.1/bytes.pm')
-rw-r--r--beagle/debian-rfs/usr/share/perl/5.10.1/bytes.pm31
1 files changed, 31 insertions, 0 deletions
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__
+