From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 15 Nov 2001 14:47:29 +0000 (+0000)
Subject: skip "might be used uninitialized".
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=87330c3c58848154e8fd5ba40c628ac130564419;p=p5sagit%2Fp5-mst-13.2.git

skip "might be used uninitialized".

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

diff --git a/pp_sys.c b/pp_sys.c
index 2ec8191..e7a9de1 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1518,8 +1518,8 @@ PP(pp_sysread)
     Size_t got = 0;
     Size_t wanted;
     bool charstart = FALSE;
-    STRLEN skip;
-    STRLEN charskip;
+    STRLEN charskip = 0;
+    STRLEN skip = 0;
 
     gv = (GV*)*++MARK;
     if ((PL_op->op_type == OP_READ || PL_op->op_type == OP_SYSREAD)
@@ -1568,6 +1568,7 @@ PP(pp_sysread)
 
     charstart = TRUE;
     charskip  = 0;
+    skip = 0;
 
 #ifdef HAS_SOCKET
     if (PL_op->op_type == OP_RECV) {