Change 14082 by jhi@alpha on 2002/01/04 21:53:30
Subject: [PATCH op.c] Bad \[...] prototype checking
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Fri, 4 Jan 2002 23:35:19 +0100
Message-ID: <20020104233519.A1850@rafael>
Affected files ...
.... //depot/perl/op.c#471 edit
Differences ...
==== //depot/perl/op.c#471 (text) ====
Index: perl/op.c
--- perl/op.c.~1~ Fri Jan 4 15:00:05 2002
+++ perl/op.c Fri Jan 4 15:00:05 2002
@@ -6787,9 +6787,16 @@
goto again;
break;
case ']':
- if (contextclass)
- contextclass = 0;
- else
+ if (contextclass) {
+ char *p = proto;
+ char s = *p;
+ contextclass = 0;
+ *p = '\0';
+ while (*--p != '[');
+ bad_type(arg, Perl_form("one of %s", p),
+ gv_ename(namegv), o2);
+ *proto = s;
+ } else
goto oops;
break;
case '*':
End of Patch.
