perl5.000 patch.0i: fix glaring mistakes in patches a-h

[p5sagit/p5-mst-13.2.git] / lib / Getopt / Long.pm

diff --git a/lib/Getopt/Long.pm b/lib/Getopt/Long.pm
index 9c66264..48cda7e 100644 (file)
--- a/lib/Getopt/Long.pm
+++ b/lib/Getopt/Long.pm
@@ -203,6 +203,7 @@ require Exporter;
     $REQUIRE_ORDER = 0;
     $PERMUTE = 1;
     $RETURN_IN_ORDER = 2;
+    $RETURN_IN_ORDER = 2; # avoid typo warning with -w
 
     # Handle POSIX compliancy.
     if ( defined $ENV{"POSIXLY_CORRECT"} ) {
@@ -234,7 +235,7 @@ sub GetOptions {
     local ($genprefix) = $option_start;
     local ($argend) = $argv_end;
     local ($error) = 0;
-    local ($opt, $optx, $arg, $type, $mand, %opctl);
+    local ($opt, $arg, $type, $mand, %opctl);
     local ($pkg) = (caller)[0];
     local ($optarg);
     local (%aliases);