diff options
author | Karl Williamson <public@khwilliamson.com> | 2012-06-18 12:20:42 -0600 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-08-02 09:24:52 -0600 |
commit | 192137fc2b216adacb243618a09eca467f0d29a3 (patch) | |
tree | bbe91efeff5bdd84133126b8c33ebfe02520422e /regen | |
parent | ce057c8e04ce0eed4d066b6d25c366b68ec55107 (diff) | |
download | perl-192137fc2b216adacb243618a09eca467f0d29a3.tar.gz |
regen/mk_PL_charclass.pl: Remove obsolete code
Octals are no longer checked via this mechanism.
Diffstat (limited to 'regen')
-rw-r--r-- | regen/mk_PL_charclass.pl | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/regen/mk_PL_charclass.pl b/regen/mk_PL_charclass.pl index 77691901ee..53c08f78be 100644 --- a/regen/mk_PL_charclass.pl +++ b/regen/mk_PL_charclass.pl @@ -164,8 +164,6 @@ for my $ord (0..255) { } elsif ($name eq 'ALNUMC') { # Like \w, but no underscore $re = qr/\p{Alnum}/; - } elsif ($name eq 'OCTAL') { - $re = qr/[0-7]/; } elsif ($name eq 'QUOTEMETA') { $re = qr/\p{_Perl_Quotemeta}/; } else { # The remainder have the same name and values as Unicode |