SYN SYN
[p5sagit/p5-mst-13.2.git] / lib / Net / protoent.pm
index 737ff5a..6aad940 100644 (file)
@@ -1,10 +1,11 @@
 package Net::protoent;
 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(getprotobyname getprotobynumber getprotoent);
+    @EXPORT      = qw(getprotobyname getprotobynumber getprotoent getproto);
     @EXPORT_OK   = qw( $p_name @p_aliases $p_proto );
     %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
 }