Nit disabling dtrace on VMS (2 single quotes inside double quotes

[perl5.git] / regcomp.pl

diff --git a/regcomp.pl b/regcomp.pl
index 17472cc..defbb5f 100644 (file)
--- a/regcomp.pl
+++ b/regcomp.pl
@@ -197,11 +197,17 @@ EOP
 
 open my $fh,"<","regexp.h" or die "Can't read regexp.h: $!";
 my %rxfv;
-my $val;
+my $val = 0;
+my %reverse;
 while (<$fh>) {
     if (/#define\s+(RXf_\w+)\s+(0x[A-F\d]+)/i) {
-        $rxfv{$1}= eval $2;
-        $val|=$rxfv{$1};
+       my $newval = eval $2;
+       if($val & $newval) {
+           die sprintf "Both $1 and $reverse{$newval} use %08X", $newval;
+       }
+        $val|=$newval;
+        $rxfv{$1}= $newval;
+       $reverse{$newval} = $1;
     }
 }    
 my %vrxf=reverse %rxfv;