This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/mk_PL_charclass.pl: Remove obsolete code
authorKarl Williamson <public@khwilliamson.com>
Mon, 18 Jun 2012 18:20:42 +0000 (12:20 -0600)
committerKarl Williamson <public@khwilliamson.com>
Thu, 2 Aug 2012 15:24:52 +0000 (09:24 -0600)
Octals are no longer checked via this mechanism.

regen/mk_PL_charclass.pl

index 7769190..53c08f7 100644 (file)
@@ -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