New improved test harness

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

diff --git a/lib/Net/protoent.pm b/lib/Net/protoent.pm
index 00a76af..2c3db88 100644 (file)
--- a/lib/Net/protoent.pm
+++ b/lib/Net/protoent.pm
@@ -2,11 +2,12 @@ package Net::protoent;
 use strict;
 
 use 5.005_64;
+our $VERSION = '1.00';
 our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
 BEGIN { 
     use Exporter   ();
-    @EXPORT      = qw(getprotobyname getprotobynumber getprotoent);
-    @EXPORT_OK   = qw( $p_name @p_aliases $p_proto getproto );
+    @EXPORT      = qw(getprotobyname getprotobynumber getprotoent getproto);
+    @EXPORT_OK   = qw( $p_name @p_aliases $p_proto );
     %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
 }
 use vars      @EXPORT_OK;
@@ -78,7 +79,6 @@ regular array variables, so for example C<@{ $proto_obj-E<gt>aliases()
 
 The getproto() function is a simple front-end that forwards a numeric
 argument to getprotobyport(), and the rest to getprotobyname().
-This function is not exported by default.
 
 To access this functionality without the core overrides,
 pass the C<use> an empty import list, and then access