Re: [ID 20010825.006] -DCRIPPLED_CC is broken

[p5sagit/p5-mst-13.2.git] / op.c

diff --git a/op.c b/op.c
index 88646a2..eba48b9 100644 (file)
--- a/op.c
+++ b/op.c
@@ -6546,7 +6546,7 @@ Perl_ck_subr(pTHX_ OP *o)
     int optional = 0;
     I32 arg = 0;
     I32 contextclass = 0;
-    char *e;
+    char *e = 0;
     STRLEN n_a;
 
     o->op_private |= OPpENTERSUB_HASTARG;
@@ -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;
                    }