From: Richard Soderberg <p5-authors@crystalflame.net>
Date: Thu, 2 Aug 2001 00:17:09 +0000 (-0700)
Subject: [PATCH] -Wall cleanup: op.c
X-Git-Tag: accepted/trunk/20130322.191538~30716
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c4e332073ffbdafd95fb09d80b489f6898a490ba;p=platform%2Fupstream%2Fperl.git

[PATCH] -Wall cleanup: op.c
Date: Thu, 2 Aug 2001 00:17:09 -0700
Message-Id: <200108020717.AAA26895@oregonnet.com>

Subject: [PATCH] -Wall cleanup: sv.c
From: Richard Soderberg <rs@oregonnet.com>
Date: Thu, 2 Aug 2001 00:49:21 -0700
Message-Id: <200108020749.AAA27492@oregonnet.com>

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

diff --git a/op.c b/op.c
index bda2ae7..3e0d685 100644
--- a/op.c
+++ b/op.c
@@ -3220,7 +3220,7 @@ Perl_utilize(pTHX_ int aver, I32 floor, OP *version, OP *id, OP *arg)
     OP *imop;
     OP *veop;
     char *packname = Nullch;
-    STRLEN packlen;
+    STRLEN packlen = 0;
     SV *packsv;
 
     if (id->op_type != OP_CONST)
diff --git a/sv.c b/sv.c
index b08c608..9dd85d7 100644
--- a/sv.c
+++ b/sv.c
@@ -9301,7 +9301,7 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, clone_params* param)
     GP *gp;
     IV iv;
     I32 i;
-    char *c;
+    char *c = NULL;
     void (*dptr) (void*);
     void (*dxptr) (pTHXo_ void*);
     OP *o;