Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE
amanda.6319
amanda-2.6.1p1-fix-perl-format.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File amanda-2.6.1p1-fix-perl-format.patch of Package amanda.6319
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) {
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
