404

[ Avaa Bypassed ]




Upload:

Command:

botdev@18.117.78.194: ~ $
#

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;

Filemanager

Name Type Size Permission Actions
Socket Folder 0755
Dir.pm File 5.24 KB 0644
File.pm File 1.63 KB 0644
Handle.pm File 8.04 KB 0644
Pipe.pm File 3.34 KB 0644
Poll.pm File 4.43 KB 0644
Seekable.pm File 686 B 0644
Select.pm File 4.26 KB 0644
Socket.pm File 9.23 KB 0644