/
usr
/
lib
/
x86_64-linux-gnu
/
perl-base
/
IO
/
/usr/lib/x86_64-linux-gnu/perl-base/IO
mkdir
upload
Name
Size
Mode
Actions
Socket/
-
0755
rm
File.pm
1636
0644
edit
dl
rm
Handle.pm
7700
0644
edit
dl
rm
Pipe.pm
3414
0644
edit
dl
rm
Seekable.pm
642
0644
edit
dl
rm
Select.pm
4714
0644
edit
dl
rm
Socket.pm
9938
0644
edit
dl
rm
Edit:
/usr/lib/x86_64-linux-gnu/perl-base/IO/Seekable.pm
(642B)
# package IO::Seekable; use 5.008_001; use Carp; use strict; 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; our @EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END); our @ISA = qw(Exporter); our $VERSION = "1.46"; 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;
Save
cmd:
run