(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 (file)
--- 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 {