From 70e28ff32415da9c0786352e034cc6de6db9ec65 Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Wed, 15 Feb 2006 00:58:07 +0100
Subject: [PATCH] Getopt::Long::Configure 'no_getopt_compat' Message-ID:
 <20060214225806.GA4120@abigail.nl>

p4raw-id: //depot/perl@27185
---
 lib/Getopt/Long.pm | 2 ++
 1 file changed, 2 insertions(+)

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