Getopt::Long::Configure 'no_getopt_compat'

Message-ID: <20060214225806.GA4120@abigail.nl>

p4raw-id: //depot/perl@27185

diff --git a/lib/Getopt/Long.pm b/lib/Getopt/Long.pm
index 04038db..06e39ea 100644 (file)
--- a/lib/Getopt/Long.pm
+++ b/lib/Getopt/Long.pm
@@ -1241,12 +1241,14 @@ sub Configure (@) {
        }
        elsif ( $try eq 'getopt_compat' ) {
            $getopt_compat = $action;
+            $genprefix = $action ? "(--|-|\\+)" : "(--|-)";
        }
        elsif ( $try eq 'gnu_getopt' ) {
            if ( $action ) {
                $gnu_compat = 1;
                $bundling = 1;
                $getopt_compat = 0;
+                $genprefix = "(--|-)";
                $order = $PERMUTE;
            }
        }