diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-04-23 15:06:57 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-05-02 13:39:00 -0600 |
| commit | eb5682978c85adb0d49e6aef177310cfe054d2aa (patch) | |
| tree | 58b59947398ebb90c3e2eb07b2170fa735615a9c /lib | |
| parent | 182b0c3f66c6c5a93e9dab9bf0162091942bb5f9 (diff) | |
| download | perl-eb5682978c85adb0d49e6aef177310cfe054d2aa.tar.gz | |
lib/utf8_heavy.pl: Fix separated '(?' token
The next commit will warn when these aren't adjacent
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/utf8_heavy.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index d7d4156f57..fc422835ab 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -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) |