/usr/lib/amanda/perl/Amanda/BigIntCompat.pm is in amanda-common 1:3.3.1-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 | # Copyright (c) 2008,2009 Zmanda, Inc. All Rights Reserved.
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License version 2 as published
# by the Free Software Foundation.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
# for more details.
#
# You should have received a copy of the GNU General Public License along
# with this program; if not, write to the Free Software Foundation, Inc.,
# 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
# Contact information: Zmanda Inc., 465 S. Mathilda Ave., Suite 300
# Sunnyvale, CA 94085, USA, or: http://www.zmanda.com
package Amanda::BigIntCompat;
use strict;
use warnings;
use overload;
use Math::BigInt;
=head1 NAME
Amanda::BigIntCompat -- make C<Math::BigInt> behave consistently
=head1 SYNOPSIS
use Amanda::BigIntCompat;
use Math::BigInt;
my $bn = Math::BigInt->new(1);
print "okay\n" if $bn eq "1";
=head1 INTERFACE
This module will modify C<Math::BigInt> to hide inconsistent behaviors across
Perl versions. Specifically, it handles the following.
=over
=item stringification
Older versions of C<Math::BigInt>, like the one shipped with Perl 5.6.1,
stringify positive numbers with a leading C<+> (e.g. C<+1> instead of C<1>).
=back
=cut
my $test_num = Math::BigInt->new(1);
our $stringify = overload::Method($test_num, '""');
# convince older perls that $stringify really is used
$stringify = $stringify;
if ($test_num =~ /^\+/) {
eval <<'EVAL';
package Math::BigInt;
use overload 'eq' => sub {
my ($self, $other) = @_;
return "$self" eq "$other";
};
# stringify is already overloaded; seems to be no good way to
# re-overload it without triggering a warning
no warnings 'redefine';
sub stringify {
my $str = $Amanda::BigIntCompat::stringify->(@_);
$str =~ s/^\+//;
return $str;
}
EVAL
die $@ if $@;
}
# the "sign" method does not exist in older versions, either, but is used
# by bigint2uint64().
if (!$test_num->can("sign")) {
eval <<'EVAL';
package Math::BigInt;
sub sign { ($_[0] =~ /^-/)? "-" : "+"; }
EVAL
die $@ if $@;
}
# similarly for bstr
if (!$test_num->can("bstr")) {
eval <<'EVAL';
package Math::BigInt;
sub bstr { "$_[0]"; }
EVAL
die $@ if $@;
}
1;
|