mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

Revert "bignum"

Browse Source 
This reverts commit d3cf8cc20a82be0573ee727a4f68b5ceb7170502.

This got accidentally pushed when I instead meant to update maint-votes
This commit is contained in:
Karl Williamson 2025-11-09 13:30:33 -07:00
parent d3cf8cc20a
commit 76d29ea0d2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cpan/bignum/lib/bigfloat.pm
View File

@ -345,7 +345,7 @@ sub import {
# "3141592653589793238462643383279502884197169399375105820974944592307".
integer => sub {
printf "# Value '%s' handled by the 'integer' sub.\n", $_[0];
#printf "Value '%s' handled by the 'integer' sub.\n", $_[0];
my $str = shift;
return $obj_class -> new($str);
},
@ -356,7 +356,7 @@ sub import {
# "0x3.14p+2" (hexadecimal).
float => sub {
printf "# Value '%s' handled by the 'float' sub.\n", $_[0];
#printf "# Value '%s' handled by the 'float' sub.\n", $_[0];
_float_constant(shift);
},
@ -365,7 +365,7 @@ sub import {
# (binary), "0314" and "0o314" (octal), and "0x314" (hexadecimal).
binary => sub {
printf "# Value '%s' handled by the 'binary' sub.\n", $_[0];
#printf "# Value '%s' handled by the 'binary' sub.\n", $_[0];
my $str = shift;
return $obj_class -> new($str) if $str =~ /^0[XxBb]/;
$obj_class -> from_oct($str);