From 8be7d673a9aa4778529fbf0d355c03a58903e578 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 7 Aug 1998 23:58:33 +0000
Subject: [PATCH] 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
---
 opcode.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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{$_})) {
-- 
2.7.4