From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 4 Sep 2001 17:43:31 +0000 (+0000)
Subject: Quench a -Wall gripe noticed by Robin Barker.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=841d93c8bc3fdc4d8ac0ab7594ddffb71b3c4fb3;p=p5sagit%2Fp5-mst-13.2.git

Quench a -Wall gripe noticed by Robin Barker.

p4raw-id: //depot/perl@11869
---

diff --git a/op.c b/op.c
index 88646a2..329a9b7 100644
--- a/op.c
+++ b/op.c
@@ -6653,7 +6653,7 @@ Perl_ck_subr(pTHX_ OP *o)
 		switch (*proto++) {
 		case '[':
 		     if (contextclass++ == 0) {
-			  e = strchr(proto, ']');
+		          e = strchr(proto, ']');
 			  if (!e || e == proto)
 			       goto oops;
 		     }
@@ -6712,7 +6712,7 @@ Perl_ck_subr(pTHX_ OP *o)
 			o2->op_sibling = sib;
 			prev->op_sibling = o2;
 		    }
-		    if (contextclass) {
+		    if (contextclass && e) {
 			 proto = e + 1;
 			 contextclass = 0;
 		    }