In Socket.xs, convert 3 croak()s to use %s and a constant string for the name.

[p5sagit/p5-mst-13.2.git] / ext / Socket / Socket.pm

diff --git a/ext/Socket/Socket.pm b/ext/Socket/Socket.pm
index 1a0b7c3..d4042cd 100644 (file)
--- a/ext/Socket/Socket.pm
+++ b/ext/Socket/Socket.pm
@@ -1,7 +1,7 @@
 package Socket;
 
 our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-$VERSION = "1.84";
+$VERSION = "1.87";
 
 =head1 NAME
 
@@ -180,12 +180,16 @@ address family passed in).  The host string may be a string hostname, such
 as 'www.perl.org', or an IP address.  If using an IP address, the type of
 IP address must be consistant with the address family passed into the function.
 
+This function is not exported by default.
+
 =item inet_ntop ADDRESS_FAMILY, IP_ADDRESS
 
 Takes an address family, either AF_INET or AF_INET6, and a string 
 (an opaque string as returned by inet_aton() or inet_pton()) and
 translates it to an IPv4 or IPv6 address string.
 
+This function is not exported by default.
+
 =back
 
 =cut
@@ -198,7 +202,6 @@ use XSLoader ();
 @ISA = qw(Exporter);
 @EXPORT = qw(
        inet_aton inet_ntoa
-       inet_pton inet_ntop
        sockaddr_family
        pack_sockaddr_in unpack_sockaddr_in
        pack_sockaddr_un unpack_sockaddr_un
@@ -360,6 +363,9 @@ use XSLoader ();
 
 @EXPORT_OK = qw(CR LF CRLF $CR $LF $CRLF
 
+              inet_pton
+              inet_ntop
+
               IPPROTO_IP
               IPPROTO_IPV6
               IPPROTO_RAW