This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
temporary opcode.pl workaround for ebcdic (suggested by
authorGurusamy Sarathy <gsar@cpan.org>
Fri, 7 Aug 1998 23:58:33 +0000 (23:58 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Fri, 7 Aug 1998 23:58:33 +0000 (23:58 +0000)
David J. Fiander <davidf@mks.com> and M.J.T. Guy)

p4raw-id: //depot/maint-5.005/perl@1755

opcode.pl

index a97bb16..f2ed795 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -189,7 +189,7 @@ for (@ops) {
     $argsum |= 64 if $flags =~ /d/;            # danger, unknown side effects
     $argsum |= 128 if $flags =~ /u/;           # defaults to $_
 
-    $flags =~ /([^a-zA-Z])/ or die qq[Opcode "$_" has no class indicator];
+    $flags =~ /([\W\d_])/ or die qq[Opcode "$_" has no class indicator];
     $argsum |= $opclass{$1} << 8;
     $mul = 4096;                               # 2 ^ OASHIFT
     for $arg (split(' ',$args{$_})) {