X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=op.c;h=eba48b9207f1a5400103234d0dfbd4d783012915;hb=6e9d10810a2ec27ec94fd014e5dbab341c35afb1;hp=329a9b73a13c80cf9c053622987e039305d6a8a5;hpb=841d93c8bc3fdc4d8ac0ab7594ddffb71b3c4fb3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/op.c b/op.c
index 329a9b7..eba48b9 100644
--- 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;