ext/B/defsubs_h.PL: teach to allow exprs with <<

Allow #defines which have left shift operators in them.

diff --git a/ext/B/defsubs_h.PL b/ext/B/defsubs_h.PL
index f8fa1ed..d8e1439 100644 (file)
--- a/ext/B/defsubs_h.PL
+++ b/ext/B/defsubs_h.PL
@@ -84,7 +84,11 @@ foreach my $tuple (['op.h'],['cop.h'],['regexp.h','RXf_'])
   open(OPH,"$path") || die "Cannot open $path:$!";
   while (<OPH>)
    {  
-    doconst($1) if (/#define\s+($pfx\w+)\s+([\(\)\|\dx]+)\s*(?:$|\/\*)/);
+    doconst($1) if (/ \#define \s+ ( $pfx \w+ ) \s+
+                        ( [()|\dx]+             # Parens, '|', digits, 'x'
+                          | \(? \d+ \s* << .*?  # digits left shifted by anything
+                        ) \s* (?: $| \/ \* )    # ending at comment or $
+                   /x);
    }  
   close(OPH);
  }