use File::Spec;
@ISA = qw(Tie::Hash Exporter);
-$VERSION = "1.10_01";
+$VERSION = "1.10";
$VERSION = eval $VERSION;
@EXPORT_OK = qw(DIR_UNLINK);
@ISA = qw(IO::Handle IO::Seekable Exporter);
-$VERSION = "1.16_01";
+$VERSION = "1.16";
@EXPORT = @IO::Seekable::EXPORT;
require Exporter;
@ISA = qw(Exporter);
-$VERSION = "1.35_01";
+$VERSION = "1.35";
$VERSION = eval $VERSION;
@EXPORT_OK = qw(
use Carp;
use Symbol;
-$VERSION = "1.15_01";
+$VERSION = "1.15";
sub new {
my $type = shift;
our(@ISA, @EXPORT_OK, @EXPORT, $VERSION);
@ISA = qw(Exporter);
-$VERSION = "0.09_01";
+$VERSION = "0.09";
@EXPORT = qw( POLLIN
POLLOUT
@EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
@ISA = qw(Exporter);
-$VERSION = "1.10_01";
+$VERSION = "1.10";
$VERSION = eval $VERSION;
sub seek {
use vars qw($VERSION @ISA);
require Exporter;
-$VERSION = "1.22_01";
+$VERSION = "1.22";
@ISA = qw(Exporter); # This is only so we can do version checking
@ISA = qw(IO::Handle);
-$VERSION = "1.38_01";
+$VERSION = "1.38";
@EXPORT_OK = qw(sockatmark);
use Errno;
@ISA = qw(IO::Socket);
-$VERSION = "1.35_01";
+$VERSION = "1.35";
my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1;
use Carp;
@ISA = qw(IO::Socket);
-$VERSION = "1.26_01";
+$VERSION = "1.26";
$VERSION = eval $VERSION;
IO::Socket::UNIX->register_domain( AF_UNIX );