From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 30 Oct 2006 10:13:22 +0000 (+0000)
Subject: Silence a g++ warning reported by Jarkko.
X-Git-Tag: accepted/trunk/20130322.191538~16739
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=97c52c3c192b3c4abe274f738e89e8d2e43724f9;p=platform%2Fupstream%2Fperl.git

Silence a g++ warning reported by Jarkko.

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

diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs
index 0e60f6f..5ed117a 100644
--- a/ext/Data/Dumper/Dumper.xs
+++ b/ext/Data/Dumper/Dumper.xs
@@ -279,7 +279,7 @@ DD_dump(pTHX_ SV *val, const char *name, STRLEN namelen, SV *retval, HV *seenhv,
        *1.1 was slower, *2.0 was the same, so the first guess of 1.5 is
 	deemed to be good enough.  */
     if (SvTYPE(retval) >= SVt_PV && (SvLEN(retval) - SvCUR(retval)) < 42) {
-	sv_grow(retval, SvCUR(retval) * 1.5);
+	sv_grow(retval, SvCUR(retval) * 3 / 2);
     }
 
     realtype = SvTYPE(val);