File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -345,7 +345,7 @@ sub import {
345345 # "3141592653589793238462643383279502884197169399375105820974944592307".
346346
347347 integer => sub {
348- printf " # Value '%s ' handled by the 'integer' sub.\n " , $_ [0];
348+ # printf "Value '%s' handled by the 'integer' sub.\n", $_[0];
349349 my $str = shift ;
350350 return $obj_class -> new($str );
351351 },
@@ -356,7 +356,7 @@ sub import {
356356 # "0x3.14p+2" (hexadecimal).
357357
358358 float => sub {
359- printf " # Value '%s ' handled by the 'float' sub.\n " , $_ [0];
359+ # printf "# Value '%s' handled by the 'float' sub.\n", $_[0];
360360 _float_constant(shift );
361361 },
362362
@@ -365,7 +365,7 @@ sub import {
365365 # (binary), "0314" and "0o314" (octal), and "0x314" (hexadecimal).
366366
367367 binary => sub {
368- printf " # Value '%s ' handled by the 'binary' sub.\n " , $_ [0];
368+ # printf "# Value '%s' handled by the 'binary' sub.\n", $_[0];
369369 my $str = shift ;
370370 return $obj_class -> new($str ) if $str =~ / ^0[XxBb]/ ;
371371 $obj_class -> from_oct($str );
You can’t perform that action at this time.
0 commit comments