Getopt::Long::Configure 'no_getopt_compat'
authorAbigail <abigail@abigail.be>
Tue, 14 Feb 2006 23:58:07 +0000 (00:58 +0100)
committerSteve Peters <steve@fisharerojo.org>
Wed, 15 Feb 2006 02:53:10 +0000 (02:53 +0000)
Message-ID: <20060214225806.GA4120@abigail.nl>

p4raw-id: //depot/perl@27185

lib/Getopt/Long.pm

index 04038db..06e39ea 100644 (file)
@@ -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;
            }
        }