From: Abigail <abigail@abigail.be>
Date: Tue, 14 Feb 2006 23:58:07 +0000 (+0100)
Subject: Getopt::Long::Configure 'no_getopt_compat'
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=70e28ff32415da9c0786352e034cc6de6db9ec65;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
 	    }
 	}