From: David Mitchell <davem@iabyn.com>
Date: Mon, 18 Nov 2013 14:37:22 +0000 (+0000)
Subject: PerlIO::scalar: silence some compiler warnings
X-Git-Tag: upstream/5.20.0~1196
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=8380d35aa2712976e84a271f136604befc69b5a3;p=platform%2Fupstream%2Fperl.git

PerlIO::scalar: silence some compiler warnings
---

diff --git a/ext/PerlIO-scalar/scalar.xs b/ext/PerlIO-scalar/scalar.xs
index a104887..8d217c9 100644
--- a/ext/PerlIO-scalar/scalar.xs
+++ b/ext/PerlIO-scalar/scalar.xs
@@ -199,7 +199,7 @@ PerlIOScalar_write(pTHX_ PerlIO * f, const void *vbuf, Size_t count)
 	}
 	else {
 	    STRLEN const cur = SvCUR(sv);
-	    if (s->posn > cur) {
+	    if ((STRLEN)s->posn > cur) {
 		dst = SvGROW(sv, (STRLEN)s->posn + count + 1);
 		Zero(SvPVX(sv) + cur, (STRLEN)s->posn - cur, char);
 	    }
@@ -340,7 +340,7 @@ PerlIOScalar_dup(pTHX_ PerlIO * f, PerlIO * o, CLONE_PARAMS * param,
        ing the cloned scalar to be set to the empty string by
        PerlIOScalar_pushed.  So set aside our scalar temporarily. */
     PerlIOScalar * const os = PerlIOSelf(o, PerlIOScalar);
-    PerlIOScalar *fs;
+    PerlIOScalar *fs = NULL; /* avoid "may be used uninitialized" warning */
     SV * const var = os->var;
     os->var = newSVpvs("");
     if ((f = PerlIOBase_dup(aTHX_ f, o, param, flags))) {