diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-10-02 21:45:45 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-10-09 11:16:04 -0600 |
| commit | fbd1cbddb39b0020d30bb614af1f816fd6366cba (patch) | |
| tree | 72162eff142548b9e30dd1c695c99e21202d3cea /regen | |
| parent | 60910c93e3c374b8f1a500bed4427c36776c6b82 (diff) | |
| download | perl-fbd1cbddb39b0020d30bb614af1f816fd6366cba.tar.gz | |
regen/regcharclass.pl: Simplify regex
There doesn't need to be a quantifier or capturing on this regex.
Diffstat (limited to 'regen')
| -rwxr-xr-x | regen/regcharclass.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regen/regcharclass.pl b/regen/regcharclass.pl index 910953b413..5d17c440a1 100755 --- a/regen/regcharclass.pl +++ b/regen/regcharclass.pl @@ -1040,7 +1040,7 @@ if ( !caller ) { s/^ \s* (?: \# .* ) ? $ //x; # squeeze out comment and blanks next unless /\S/; chomp; - if ( /^([A-Z]+)/ ) { + if ( /^[A-Z]/ ) { $doit->(); # This starts a new definition; do the previous one ( $op, $title )= split /\s*:\s*/, $_, 2; @txt= (); |