Change 11869 by jhi@alpha on 2001/09/04 17:43:31
Quench a -Wall gripe noticed by Robin Houston.
Affected files ...
... //depot/perl/op.c#438 edit
Differences ...
==== //depot/perl/op.c#438 (text) ====
Index: perl/op.c
--- perl/op.c.~1~ Tue Sep 4 12:00:05 2001
+++ perl/op.c Tue Sep 4 12:00:05 2001
@@ -6653,7 +6653,7 @@
switch (*proto++) {
case '[':
if (contextclass++ == 0) {
- e = strchr(proto, ']');
+ e = strchr(proto, ']');
if (!e || e == proto)
goto oops;
}
@@ -6712,7 +6712,7 @@
o2->op_sibling = sib;
prev->op_sibling = o2;
}
- if (contextclass) {
+ if (contextclass && e) {
proto = e + 1;
contextclass = 0;
}
End of Patch.
