forked from pool/amanda
35 lines
1007 B
Diff
35 lines
1007 B
Diff
Index: amanda-2.6.1p1/perl/Amanda/BigIntCompat.pm
|
|
===================================================================
|
|
--- amanda-2.6.1p1.orig/perl/Amanda/BigIntCompat.pm 2008-12-16 01:03:38.000000000 +0100
|
|
+++ amanda-2.6.1p1/perl/Amanda/BigIntCompat.pm 2011-04-30 17:21:41.515787668 +0200
|
|
@@ -60,7 +60,8 @@ our $stringify = overload::Method($test_
|
|
|
|
if ($test_num =~ /^\+/) {
|
|
eval <<'EVAL';
|
|
- package Math::BigInt;
|
|
+ package
|
|
+ Math::BigInt;
|
|
use overload 'eq' => sub {
|
|
my ($self, $other) = @_;
|
|
return "$self" eq "$other";
|
|
@@ -82,7 +83,8 @@ EVAL
|
|
# by bigint2uint64().
|
|
if (!$test_num->can("sign")) {
|
|
eval <<'EVAL';
|
|
- package Math::BigInt;
|
|
+ package
|
|
+ Math::BigInt;
|
|
sub sign { ($_[0] =~ /^-/)? "-" : "+"; }
|
|
EVAL
|
|
die $@ if $@;
|
|
@@ -91,7 +93,8 @@ EVAL
|
|
# similarly for bstr
|
|
if (!$test_num->can("bstr")) {
|
|
eval <<'EVAL';
|
|
- package Math::BigInt;
|
|
+ package
|
|
+ Math::BigInt;
|
|
sub bstr { "$_[0]"; }
|
|
EVAL
|
|
die $@ if $@;
|