summaryrefslogtreecommitdiff
path: root/dist/Math-BigInt/lib/Math/BigFloat.pm
diff options
context:
space:
mode:
Diffstat (limited to 'dist/Math-BigInt/lib/Math/BigFloat.pm')
-rw-r--r--dist/Math-BigInt/lib/Math/BigFloat.pm6
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();
}
##############################################################################