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

Index: amanda-3.3.0/perl/Amanda/BigIntCompat.pm
===================================================================
--- amanda-3.3.0.orig/perl/Amanda/BigIntCompat.pm
+++ amanda-3.3.0/perl/Amanda/BigIntCompat.pm
@@ -59,7 +59,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";
@@ -81,7 +82,8 @@ EVAL
 # by bigint2uint64().
 if (!$test_num->can("sign")) {
     eval <<'EVAL';
-	package Math::BigInt;
+	package 
+           Math::BigInt;
 	sub sign { ($_[0] =~ /^-/)? "-" : "+"; }
 EVAL
     die $@ if $@;
@@ -90,7 +92,8 @@ EVAL
 # similarly for bstr
 if (!$test_num->can("bstr")) {
     eval <<'EVAL';
-	package Math::BigInt;
+	package 
+           Math::BigInt;
 	sub bstr { "$_[0]"; }
 EVAL
     die $@ if $@;