s/use vars/our/g modules that aren't independently maintained on CPAN

p4raw-id: //depot/perl@4860

5 files changed, 10 insertions, 7 deletions

diff --git a/lib/Net/Ping.pm b/lib/Net/Ping.pm
index 54540601d3..0c8622e220 100644
--- a/lib/Net/Ping.pm
+++ b/lib/Net/Ping.pm
@@ -10,12 +10,11 @@ package Net::Ping;
 # program is free software; you may redistribute it and/or modify it
 # under the same terms as Perl itself.
 
-require 5.002;
+use 5.005_64;
 require Exporter;
 
 use strict;
-use vars qw(@ISA @EXPORT $VERSION
-            $def_timeout $def_proto $max_datasize);
+our(@ISA, @EXPORT, $VERSION, $def_timeout, $def_proto, $max_datasize);
 use FileHandle;
 use Socket qw( SOCK_DGRAM SOCK_STREAM SOCK_RAW PF_INET
                inet_aton sockaddr_in );
diff --git a/lib/Net/hostent.pm b/lib/Net/hostent.pm
index d586358f0a..6cfde7253c 100644
--- 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
diff --git a/lib/Net/netent.pm b/lib/Net/netent.pm
index fbc6d987fe..d8c094ae81 100644
--- a/lib/Net/netent.pm
+++ b/lib/Net/netent.pm
@@ -1,9 +1,10 @@
 package Net::netent;
 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(getnetbyname getnetbyaddr getnet);
     @EXPORT_OK   = qw(
 			$n_name	    	@n_aliases
diff --git a/lib/Net/protoent.pm b/lib/Net/protoent.pm
index 737ff5a33b..334af78914 100644
--- a/lib/Net/protoent.pm
+++ b/lib/Net/protoent.pm
@@ -1,9 +1,10 @@
 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_OK   = qw( $p_name @p_aliases $p_proto );
     %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
diff --git a/lib/Net/servent.pm b/lib/Net/servent.pm
index fb85dd04bf..c892af0bbe 100644
--- a/lib/Net/servent.pm
+++ b/lib/Net/servent.pm
@@ -1,9 +1,10 @@
 package Net::servent;
 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(getservbyname getservbyport getservent getserv);
     @EXPORT_OK   = qw( $s_name @s_aliases $s_port $s_proto );
     %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );