diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-07 23:58:33 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-07 23:58:33 +0000 |
| commit | 8be7d673a9aa4778529fbf0d355c03a58903e578 (patch) | |
| tree | bdd2bee022de6128593e13b6cbea9a6500537849 /opcode.pl | |
| parent | 7dfe3f660cb120466e9c6f9f1b8b1c931d114062 (diff) | |
| download | perl-8be7d673a9aa4778529fbf0d355c03a58903e578.tar.gz | |
temporary opcode.pl workaround for ebcdic (suggested by
David J. Fiander <davidf@mks.com> and M.J.T. Guy)
p4raw-id: //depot/maint-5.005/perl@1755
Diffstat (limited to 'opcode.pl')
| -rwxr-xr-x | opcode.pl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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{$_})) { |