This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
tweaks to Getopt::Std
authorRobin Barker <RMBarker@cpan.org>
Tue, 30 Jun 1998 14:45:49 +0000 (15:45 +0100)
committerGurusamy Sarathy <gsar@cpan.org>
Sat, 4 Jul 1998 03:16:39 +0000 (03:16 +0000)
Message-Id: <14103.9806301345@tempest.cise.npl.co.uk>
Subject: [PATCH perl5.004_69] lib/Getopt/Std.pm
--
Message-Id: <17918.9807021053@tempest.cise.npl.co.uk>
To: perl5-porters@perl.org
Subject: [PATCH perl5.004_69] second: lib/Getopt/Std.pm

p4raw-id: //depot/perl@1288

lib/Getopt/Std.pm

index 18b5739..c2cd123 100644 (file)
@@ -57,7 +57,7 @@ the argument or 1 if no argument is specified.
 sub getopt ($;$) {
     local($argumentative, $hash) = @_;
     local($_,$first,$rest);
-    local $Exporter::ExportLevel;
+    local @EXPORT;
 
     while (@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) {
        ($first,$rest) = ($1,$2);
@@ -93,8 +93,10 @@ sub getopt ($;$) {
            }
        }
     }
-    $Exporter::ExportLevel++;
-    import Getopt::Std;
+    unless (ref $hash) { 
+       local $Exporter::ExportLevel = 1;
+       import Getopt::Std;
+    }
 }
 
 # Usage:
@@ -105,7 +107,7 @@ sub getopts ($;$) {
     local($argumentative, $hash) = @_;
     local(@args,$_,$first,$rest);
     local($errs) = 0;
-    local $Exporter::ExportLevel;
+    local @EXPORT;
 
     @args = split( / */, $argumentative );
     while(@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) {
@@ -153,8 +155,10 @@ sub getopts ($;$) {
            }
        }
     }
-    $Exporter::ExportLevel++;
-    import Getopt::Std;
+    unless (ref $hash) { 
+       local $Exporter::ExportLevel = 1;
+       import Getopt::Std;
+    }
     $errs == 0;
 }