Change 13020 by jhi@alpha on 2001/11/15 14:47:29
skip "might be used uninitialized".
Affected files ...
.... //depot/perl/pp_sys.c#265 edit
Differences ...
==== //depot/perl/pp_sys.c#265 (text) ====
Index: perl/pp_sys.c
--- perl/pp_sys.c.~1~ Thu Nov 15 08:00:05 2001
+++ perl/pp_sys.c Thu Nov 15 08:00:05 2001
@@ -1518,8 +1518,8 @@
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 @@
charstart = TRUE;
charskip = 0;
+ skip = 0;
#ifdef HAS_SOCKET
if (PL_op->op_type == OP_RECV) {
End of Patch.
