diff options
| author | Manuel Traut <manut@mecka.net> | 2011-04-29 09:09:27 +0200 |
|---|---|---|
| committer | Manuel Traut <manut@mecka.net> | 2011-04-29 09:09:27 +0200 |
| commit | 5238ad5a0c4a9e1c8cd036f5de4055e39bd71297 (patch) | |
| tree | 4407c087b9fb5432b1dc11e70b52dacfa0b99feb /beagle/debian-rfs/usr/share/perl/5.10.1/bytes.pm | |
| parent | 60ead65c41afba7e6aa4bbcf507a1d52f7a8fe9f (diff) | |
added debootstrap stuff
Signed-off-by: Manuel Traut <manut@mecka.net>
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__ + |
