diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-02 07:53:51 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-02 07:53:51 +0000 |
| commit | db376a245d40f9f81e37632708a9ad2cfc67ef6a (patch) | |
| tree | 8c6efaa9d96c8eab8c80c68fe4e15d92aec8f7b4 /lib/Math | |
| parent | 65e1a3a11dd767e7393f37a7bd811ce587d64985 (diff) | |
| download | perl-db376a245d40f9f81e37632708a9ad2cfc67ef6a.tar.gz | |
use warnings rather than fiddling with $^W (from Paul Marquess)
p4raw-id: //depot/perl@4954
Diffstat (limited to 'lib/Math')
| -rw-r--r-- | lib/Math/BigFloat.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Math/BigFloat.pm b/lib/Math/BigFloat.pm index 1a9195e185..d8d643ca3e 100644 --- a/lib/Math/BigFloat.pm +++ b/lib/Math/BigFloat.pm @@ -74,7 +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 + no warnings; # $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 { |