diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-25 00:24:17 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-25 00:24:17 +0000 |
| commit | 0e8b93680515c2e86a8476b627fb46e04ed665af (patch) | |
| tree | e79c0a8aa99d44d7706e52ab0ba9c784dd88e6f9 /lib | |
| parent | 562a7b0c67b6218259506760bd4728f2f0c6093b (diff) | |
| download | perl-0e8b93680515c2e86a8476b627fb46e04ed665af.tar.gz | |
remove bogus panic()
p4raw-id: //depot/perl@3157
Diffstat (limited to 'lib')
| -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 56d6efe46c..0435cd89e8 100644 --- a/lib/Math/BigFloat.pm +++ b/lib/Math/BigFloat.pm @@ -26,9 +26,9 @@ qw( sub new { my ($class) = shift; my ($foo) = fnorm(shift); - panic("Not a number initialized to Math::BigFloat") if $foo eq "NaN"; bless \$foo, $class; } + sub numify { 0 + "${$_[0]}" } # Not needed, additional overhead # comparing to direct compilation based on # stringify |