diff options
| author | Abigail <abigail@abigail.be> | 2006-02-15 00:58:07 +0100 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-02-15 02:53:10 +0000 |
| commit | 70e28ff32415da9c0786352e034cc6de6db9ec65 (patch) | |
| tree | 0ff36ea9465827c9f73e6d965b30c1e5f7c5f706 /lib/Getopt | |
| parent | c268c2a6c105d04cb2a165c1cfb63069e7ae2774 (diff) | |
| download | perl-70e28ff32415da9c0786352e034cc6de6db9ec65.tar.gz | |
Getopt::Long::Configure 'no_getopt_compat'
Message-ID: <20060214225806.GA4120@abigail.nl>
p4raw-id: //depot/perl@27185
Diffstat (limited to 'lib/Getopt')
| -rw-r--r-- | lib/Getopt/Long.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Getopt/Long.pm b/lib/Getopt/Long.pm index 04038db58e..06e39ea8b7 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; } } |