From: Jan Dubois <jand@activestate.com>
Date: Fri, 28 May 1999 20:14:35 +0000 (+0200)
Subject: (was Re: Unitialized Value Complaints in Math::BigFloat)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eaeb0b243caaadc44d2b5d951d6ec4dc308789d8;p=p5sagit%2Fp5-mst-13.2.git

(was Re: Unitialized Value Complaints in Math::BigFloat)

To: Gurusamy Sarathy <gsar@activestate.com>, perl5-porters@perl.org
Message-ID: <3751daa4.7188847@smtp1.ibm.net>

p4raw-id: //depot/cfgperl@3503
---

diff --git a/lib/Math/BigFloat.pm b/lib/Math/BigFloat.pm
index 0435cd8..8aa6a66 100644
--- a/lib/Math/BigFloat.pm
+++ b/lib/Math/BigFloat.pm
@@ -74,6 +74,7 @@ sub fnorm; sub fsqrt;
 sub fnorm { #(string) return fnum_str
     local($_) = @_;
     s/\s+//g;                               # strip white space
+    local $^W = 0;	# $4 and $5 below might legitimately be undefined
     if (/^([+-]?)(\d*)(\.(\d*))?([Ee]([+-]?\d+))?$/ && "$2$4" ne '') {
 	&norm(($1 ? "$1$2$4" : "+$2$4"),(($4 ne '') ? $6-length($4) : $6));
     } else {