From eaeb0b243caaadc44d2b5d951d6ec4dc308789d8 Mon Sep 17 00:00:00 2001
From: Jan Dubois <jand@activestate.com>
Date: Fri, 28 May 1999 22:14:35 +0200
Subject: (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
---
 lib/Math/BigFloat.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib/Math')

diff --git a/lib/Math/BigFloat.pm b/lib/Math/BigFloat.pm
index 0435cd89e8..8aa6a6604b 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 {
-- 
cgit v1.2.1