From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 7 Aug 1998 23:58:33 +0000 (+0000)
Subject: temporary opcode.pl workaround for ebcdic (suggested by
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8be7d673a9aa4778529fbf0d355c03a58903e578;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/opcode.pl b/opcode.pl
index a97bb16..f2ed795 100755
--- 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{$_})) {