diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-02 01:37:33 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-02 01:37:33 +0000 |
| commit | 69dec784b2576ea54ab7c7c5e03371f1f8861260 (patch) | |
| tree | f9c5605e00df11c9c976f39346dfc612c191dab6 /lib/Math | |
| parent | ba106d47906768b6e657462b9a484fe0c3a0f0d5 (diff) | |
| parent | f54b75aca7a5c24d01f65ce2849ffe277974f0e9 (diff) | |
| download | perl-69dec784b2576ea54ab7c7c5e03371f1f8861260.tar.gz | |
integrate cfgperl contents into mainline
p4raw-id: //depot/perl@3516
Diffstat (limited to 'lib/Math')
| -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 { |