File amanda-2.6.1p1-fix-perl-format.patch of Package amanda

index e18817a..9507676 100644
--- a/perl/Amanda/Report/human.pm
+++ b/perl/Amanda/Report/human.pm
@@ -85,8 +85,9 @@ sub divzero_col
 sub swrite
 {
     my ( $format, @args ) = @_;
+    my @copy_args = @args;
     local $^A = "";
-    formline( $format, @args );
+    formline( $format, @copy_args );
     return $^A;
 }
 
@@ -382,7 +383,7 @@ sub print_header
       unless ($report->{flags}{got_finish});
 
     my $header_format = <<EOF;
-@<<<<<<<: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<...
+@<<<<<<<: ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<...
 EOF
 
     if ($hostname) {