mirror of
https://git.savannah.gnu.org/git/parallel.git
synced 2024-11-24 23:17:55 +00:00
37 lines
686 B
Perl
37 lines
686 B
Perl
|
#
|
||
|
|
|
||
|
|
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;
|