[gentoo-commits] gentoo-x86 commit in app-backup/flexbackup/files: flexbackup-1.2.1-perl-5.12-deprecation-warning2.patch

[Hans de Graaff (graaff)]

graaff      10/10/09 11:25:30

  Added:               
                        flexbackup-1.2.1-perl-5.12-deprecation-warning2.patch
  Log:
  Update patch for perl 5.12 warnings as suggested by Paul Colquhoun in bug 333909.
  (Portage version: 2.1.8.3/cvs/Linux x86_64)

Revision  Changes    Path
1.1                  app-backup/flexbackup/files/flexbackup-1.2.1-perl-5.12-deprecation-warning2.patch

file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/app-backup/flexbackup/files/flexbackup-1.2.1-perl-5.12-deprecation-warning2.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/app-backup/flexbackup/files/flexbackup-1.2.1-perl-5.12-deprecation-warning2.patch?rev=1.1&content-type=text/plain

Index: flexbackup-1.2.1-perl-5.12-deprecation-warning2.patch
===================================================================
--- flexbackup.~1~	2010-10-09 13:19:27.633694860 +0200
+++ flexbackup	2010-10-09 13:21:52.396818511 +0200
@@ -133,6 +133,9 @@
 # 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 @@
     } else {
 	$prunekey = $dir;
     }
-    if (defined(%{$::prune{$prunekey}})) {
+    if (defined($prune{$prunekey})) {
 	&log("| NOTE: \$prune is ignored for type=dump");
     }