diff options
| author | Jan Dubois <jand@activestate.com> | 1999-05-28 22:14:35 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-05-29 10:53:31 +0000 |
| commit | c0e4e5011fb3ae61679bbe6eb05105731c77bb34 (patch) | |
| tree | 3b3a8ccb7cf2f50a545c027c534c3ef3fd37b940 /lib/Math/BigFloat.pm | |
| parent | c5d471e4c152511515c924296e8bede28622911c (diff) | |
| download | perl-c0e4e5011fb3ae61679bbe6eb05105731c77bb34.tar.gz | |
(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
Diffstat (limited to 'lib/Math/BigFloat.pm')
| -rw-r--r-- | lib/Math/BigFloat.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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 { |