another VMS build tweak from Peter Prymmer

[p5sagit/p5-mst-13.2.git] / lib / Net / hostent.pm

diff --git a/lib/Net/hostent.pm b/lib/Net/hostent.pm
index dfca789..6cfde72 100644 (file)
--- a/lib/Net/hostent.pm
+++ b/lib/Net/hostent.pm
@@ -1,9 +1,10 @@
 package Net::hostent;
 use strict;
 
+use 5.005_64;
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
 BEGIN { 
     use Exporter   ();
-    use vars       qw(@EXPORT @EXPORT_OK %EXPORT_TAGS);
     @EXPORT      = qw(gethostbyname gethostbyaddr gethost);
     @EXPORT_OK   = qw(
                        $h_name         @h_aliases
@@ -76,9 +77,9 @@ This module's default exports override the core gethostbyname() and
 gethostbyaddr() functions, replacing them with versions that return
 "Net::hostent" objects.  This object has methods that return the similarly
 named structure field name from the C's hostent structure from F<netdb.h>;
-namely name, aliases, addrtype, length, and addresses.  The aliases and
-addresses methods return array reference, the rest scalars.  The addr
-method is equivalent to the zeroth element in the addresses array
+namely name, aliases, addrtype, length, and addr_list.  The aliases and
+addr_list methods return array reference, the rest scalars.  The addr
+method is equivalent to the zeroth element in the addr_list array
 reference.
 
 You may also import all the structure fields directly into your namespace
@@ -89,7 +90,7 @@ $h_name if you import the fields.  Array references are available as
 regular array variables, so for example C<@{ $host_obj-E<gt>aliases()
 }> would be simply @h_aliases.
 
-The gethost() funtion is a simple front-end that forwards a numeric
+The gethost() function is a simple front-end that forwards a numeric
 argument to gethostbyaddr() by way of Socket::inet_aton, and the rest
 to gethostbyname().