lib/utf8_heavy.pl: Fix separated '(?' token
authorKarl Williamson <public@khwilliamson.com>
Tue, 23 Apr 2013 21:06:57 +0000 (15:06 -0600)
committerKarl Williamson <public@khwilliamson.com>
Thu, 2 May 2013 19:39:00 +0000 (13:39 -0600)
The next commit will warn when these aren't adjacent

lib/utf8_heavy.pl

index d7d4156..fc42283 100644 (file)
@@ -246,7 +246,7 @@ sub _loose_name ($) {
                                                     # minus
 
                             # Remove underscores between digits.
-                            $part =~ s/( ?<= [0-9] ) _ (?= [0-9] ) //xg;
+                            $part =~ s/(?<= [0-9] ) _ (?= [0-9] ) //xg;
 
                             # No leading zeros (but don't make a single '0'
                             # into a null string)