diff options
| author | Manuel Traut <manut@mecka.net> | 2011-07-18 14:00:12 +0200 |
|---|---|---|
| committer | Manuel Traut <manut@mecka.net> | 2011-07-18 14:00:12 +0200 |
| commit | ed006a8eb44831189e152826c692330d0a0cfe3b (patch) | |
| tree | 66996c44c68a8787e4a35a85aea683975f307767 /beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Seekable.pm | |
| parent | 4493e8f707e62b9867d9cfd40205115140e7c993 (diff) | |
delete beagle-dir
Signed-off-by: Manuel Traut <manut@mecka.net>
Diffstat (limited to 'beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Seekable.pm')
| -rw-r--r-- | beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Seekable.pm | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Seekable.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Seekable.pm deleted file mode 100644 index 025b89f..0000000 --- a/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Seekable.pm +++ /dev/null @@ -1,36 +0,0 @@ -# - -package IO::Seekable; - -use 5.006_001; -use Carp; -use strict; -our($VERSION, @EXPORT, @ISA); -use IO::Handle (); -# XXX we can't get these from IO::Handle or we'll get prototype -# mismatch warnings on C<use POSIX; use IO::File;> :-( -use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END); -require Exporter; - -@EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END); -@ISA = qw(Exporter); - -$VERSION = "1.10"; -$VERSION = eval $VERSION; - -sub seek { - @_ == 3 or croak 'usage: $io->seek(POS, WHENCE)'; - seek($_[0], $_[1], $_[2]); -} - -sub sysseek { - @_ == 3 or croak 'usage: $io->sysseek(POS, WHENCE)'; - sysseek($_[0], $_[1], $_[2]); -} - -sub tell { - @_ == 1 or croak 'usage: $io->tell()'; - tell($_[0]); -} - -1; |
