From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 24 Dec 2005 14:09:56 +0000 (+0000)
Subject: Given that IO::Socket is documented as exporting all of Socket's
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e67426a489d5f4a242c5edc688e24e7e32e60c26;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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 );