diff options
Diffstat (limited to 'dist/Math-BigInt/lib/Math/BigFloat.pm')
-rw-r--r-- | dist/Math-BigInt/lib/Math/BigFloat.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/dist/Math-BigInt/lib/Math/BigFloat.pm b/dist/Math-BigInt/lib/Math/BigFloat.pm index 06a6e48417..40881038d5 100644 --- a/dist/Math-BigInt/lib/Math/BigFloat.pm +++ b/dist/Math-BigInt/lib/Math/BigFloat.pm @@ -437,10 +437,10 @@ sub bsstr sub numify { - # Make a number from a BigFloat object - # simple return a string and let Perl's atoi()/atof() handle the rest + # Convert a Perl scalar number from a BigFloat object. + # Create a string and let Perl's atoi()/atof() handle the rest. my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_); - $x->bsstr(); + return 0 + $x->bsstr(); } ############################################################################## |