diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Math/BigInt/CalcEmu.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Math/BigInt/CalcEmu.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/Master/tlpkg/tlperl/lib/Math/BigInt/CalcEmu.pm b/Master/tlpkg/tlperl/lib/Math/BigInt/CalcEmu.pm index 8e994ede273..572f9de52fd 100644 --- a/Master/tlpkg/tlperl/lib/Math/BigInt/CalcEmu.pm +++ b/Master/tlpkg/tlperl/lib/Math/BigInt/CalcEmu.pm @@ -4,8 +4,7 @@ use 5.006001; use strict; use warnings; -our $VERSION = '1.999715'; -$VERSION = eval $VERSION; +our $VERSION = '1.999806'; package Math::BigInt; @@ -15,7 +14,7 @@ my $CALC_EMU; BEGIN { - $CALC_EMU = Math::BigInt->config()->{'lib'}; + $CALC_EMU = Math::BigInt->config('lib'); # register us with MBI to get notified of future lib changes Math::BigInt::_register_callback( __PACKAGE__, sub { $CALC_EMU = $_[0]; } ); } @@ -25,7 +24,7 @@ sub __emu_band my ($self,$x,$y,$sx,$sy,@r) = @_; return $x->bzero(@r) if $y->is_zero() || $x->is_zero(); - + my $sign = 0; # sign of result $sign = 1 if $sx == -1 && $sy == -1; @@ -75,7 +74,7 @@ sub __emu_band # if $xx eq "\x00", we can cut $by, otherwise we need to padd $bx $bx .= $xx x abs($diff); } - + # and the strings together my $r = $bx & $by; @@ -380,7 +379,7 @@ L<http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/bignum> =head1 LICENSE This program is free software; you may redistribute it and/or modify it under -the same terms as Perl itself. +the same terms as Perl itself. =head1 AUTHORS |