Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
Archiving:Backup
flexbackup
flexbackup-1.2.1-perl-5.12-deprecation-warning....
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File flexbackup-1.2.1-perl-5.12-deprecation-warning.patch of Package flexbackup
Index: flexbackup =================================================================== --- flexbackup.orig +++ flexbackup @@ -133,6 +133,9 @@ $::zsh_pipe_exit = '; x=(${pipestatus[@] # tar has a limit of this many chars in its volume label $::tar_max_label = 99; +# Define the prune hash to avoid warnings with perl 5.12 +use vars qw( %prune ); + # Get commandline flags %::opt = (); if (! &::GetOptions(\%::opt, @@ -1050,7 +1053,7 @@ sub backup_dump { } else { $prunekey = $dir; } - if (defined(%{$::prune{$prunekey}})) { + if (defined($prune{$prunekey})) { &log("| NOTE: \$prune is ignored for type=dump"); } @@ -4882,7 +4885,7 @@ sub file_list_cmd { $prunekey = $dir; } - if (defined(%{$::prune{$prunekey}})) { + if (defined($prune{$prunekey})) { my $rex; # FreeBSD needs -E (above) and no backslashes around the (|) chars if ($::uname =~ /FreeBSD/) {
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
