diff options
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.pm | 31 |
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__ + |
