forked from pool/amanda
100da041cd
- version update to 3.5.4 * Fixed: arg checking for runtar.c (CVE-2023-30577) [bsc#1213701] - modified patches % amanda-2.6.1p1-avoid-perl-provides.patch (refreshed) OBS-URL: https://build.opensuse.org/request/show/1101187 OBS-URL: https://build.opensuse.org/package/show/Archiving/amanda?expand=0&rev=92
35 lines
955 B
Diff
35 lines
955 B
Diff
Index: amanda-tag-community-3.5.4/perl/Amanda/BigIntCompat.pm
|
|
===================================================================
|
|
--- amanda-tag-community-3.5.4.orig/perl/Amanda/BigIntCompat.pm
|
|
+++ amanda-tag-community-3.5.4/perl/Amanda/BigIntCompat.pm
|
|
@@ -61,7 +61,8 @@ $stringify = $stringify;
|
|
|
|
if ($test_num =~ /^\+/) {
|
|
eval <<'EVAL';
|
|
- package Math::BigInt;
|
|
+ package
|
|
+ Math::BigInt;
|
|
use overload 'eq' => sub {
|
|
my ($self, $other) = @_;
|
|
return "$self" eq "$other";
|
|
@@ -83,7 +84,8 @@ EVAL
|
|
# by bigint2uint64().
|
|
if (!$test_num->can("sign")) {
|
|
eval <<'EVAL';
|
|
- package Math::BigInt;
|
|
+ package
|
|
+ Math::BigInt;
|
|
sub sign { ($_[0] =~ /^-/)? "-" : "+"; }
|
|
EVAL
|
|
die $@ if $@;
|
|
@@ -92,7 +94,8 @@ EVAL
|
|
# similarly for bstr
|
|
if (!$test_num->can("bstr")) {
|
|
eval <<'EVAL';
|
|
- package Math::BigInt;
|
|
+ package
|
|
+ Math::BigInt;
|
|
sub bstr { "$_[0]"; }
|
|
EVAL
|
|
die $@ if $@;
|