Given that IO::Socket is documented as exporting all of Socket's

exports, there's no need for IO::Socket::INET or IO::Socket::UNIX to
use both. (And re-exporting removes some of the efficiency of the new
constants implementation)

p4raw-id: //depot/perl@26481

diff --git a/ext/IO/lib/IO/Socket/INET.pm b/ext/IO/lib/IO/Socket/INET.pm
index 7d2d538..73f4abd 100644 (file)
--- a/ext/IO/lib/IO/Socket/INET.pm
+++ b/ext/IO/lib/IO/Socket/INET.pm
@@ -9,13 +9,12 @@ package IO::Socket::INET;
 use strict;
 our(@ISA, $VERSION);
 use IO::Socket;
-use Socket;
 use Carp;
 use Exporter;
 use Errno;
 
 @ISA = qw(IO::Socket);
-$VERSION = "1.29_01";
+$VERSION = "1.29_02";
 
 my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1;
 

diff --git a/ext/IO/lib/IO/Socket/UNIX.pm b/ext/IO/lib/IO/Socket/UNIX.pm
index 952a0f4..7f5b27d 100644 (file)
--- a/ext/IO/lib/IO/Socket/UNIX.pm
+++ b/ext/IO/lib/IO/Socket/UNIX.pm
@@ -9,11 +9,10 @@ package IO::Socket::UNIX;
 use strict;
 our(@ISA, $VERSION);
 use IO::Socket;
-use Socket;
 use Carp;
 
 @ISA = qw(IO::Socket);
-$VERSION = "1.22";
+$VERSION = "1.22_01";
 $VERSION = eval $VERSION;
 
 IO::Socket::UNIX->register_domain( AF_UNIX );