This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
-Wall nit.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 5 Sep 2001 15:30:11 +0000 (15:30 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 5 Sep 2001 15:30:11 +0000 (15:30 +0000)
p4raw-id: //depot/perl@11886

op.c

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