X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/c8d65f1035cb1d70dc2830289eaeb81b4e0d2ff8..b5b9b3855f771d1ed1aaa79a547b12ee1f8a218b:/lib/ExtUtils/Command/MM.pm

diff --git a/lib/ExtUtils/Command/MM.pm b/lib/ExtUtils/Command/MM.pm
index c11afba..5665bbb 100644
--- a/lib/ExtUtils/Command/MM.pm
+++ b/lib/ExtUtils/Command/MM.pm
@@ -1,15 +1,16 @@
 package ExtUtils::Command::MM;
 
+require 5.006;
+
 use strict;
+use warnings;
 
-require 5.005_03;
 require Exporter;
-use vars qw($VERSION @ISA @EXPORT);
-@ISA = qw(Exporter);
+our @ISA = qw(Exporter);
 
-@EXPORT  = qw(test_harness pod2man perllocal_install uninstall 
-              warn_if_old_packlist);
-$VERSION = '6.37_02';
+our @EXPORT  = qw(test_harness pod2man perllocal_install uninstall 
+                  warn_if_old_packlist);
+our $VERSION = '6.48';
 
 my $Is_VMS = $^O eq 'VMS';
 
@@ -89,14 +90,14 @@ If no arguments are given to pod2man it will read from @ARGV.
 =cut
 
 sub pod2man {
+    local @ARGV = @_ ? @_ : @ARGV;
+
     require Pod::Man;
     require Getopt::Long;
 
-    my %options = ();
-
     # We will cheat and just use Getopt::Long.  We fool it by putting
     # our arguments into @ARGV.  Should be safe.
-    local @ARGV = @_ ? @_ : @ARGV;
+    my %options = ();
     Getopt::Long::config ('bundling_override');
     Getopt::Long::GetOptions (\%options, 
                 'section|s=s', 'release|r=s', 'center|c=s',
@@ -193,7 +194,8 @@ sub perllocal_install {
 
     # VMS feeds args as a piped file on STDIN since it usually can't
     # fit all the args on a single command line.
-    @ARGV = split /\|/, <STDIN> if $Is_VMS;
+    my @mod_info = $Is_VMS ? split /\|/, <STDIN>
+                           : @ARGV;
 
     my $pod;
     $pod = sprintf <<POD, scalar localtime;
@@ -204,7 +206,7 @@ sub perllocal_install {
 POD
 
     do {
-        my($key, $val) = splice(@ARGV, 0, 2);
+        my($key, $val) = splice(@mod_info, 0, 2);
 
         $pod .= <<POD
  =item *
@@ -213,7 +215,7 @@ POD
  
 POD
 
-    } while(@ARGV);
+    } while(@mod_info);
 
     $pod .= "=back\n\n";
     $pod =~ s/^ //mg;