File amanda-2.6.1p1-avoid-perl-provides.patch of Package amanda

Overview Repositories Revisions Requests Users Attributes Meta

File amanda-2.6.1p1-avoid-perl-provides.patch of Package amanda

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 $@;

Places

File amanda-2.6.1p1-avoid-perl-provides.patch of Package amanda

Places