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

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

[Hans de Graaff (graaff)]

graaff      10/08/14 08:44:41

  Added:               
                        flexbackup-1.2.1-perl-5.12-deprecation-warning.patch
  Log:
  Fix perl 5.12 deprecation warnings, thanks to John R. Graham for providing a patch in bug 331673.
  (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-warning.patch

file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/app-backup/flexbackup/files/flexbackup-1.2.1-perl-5.12-deprecation-warning.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-warning.patch?rev=1.1&content-type=text/plain

Index: flexbackup-1.2.1-perl-5.12-deprecation-warning.patch
===================================================================
diff -ubB old/flexbackup new/flexbackup
--- old/flexbackup	2010-07-30 11:44:34.000000000 -0400
+++ new/flexbackup	2010-07-30 11:46:03.000000000 -0400
@@ -1050,7 +1050,7 @@
     } else {
 	$prunekey = $dir;
     }
-    if (defined(%{$::prune{$prunekey}})) {
+    if (%{$::prune{$prunekey}}) {
 	&log("| NOTE: \$prune is ignored for type=dump");
     }
 
@@ -4882,7 +4882,7 @@
 	$prunekey = $dir;
     }
 
-    if (defined(%{$::prune{$prunekey}})) {
+    if (%{$::prune{$prunekey}}) {
 		my $rex;
 	# FreeBSD needs -E (above) and no backslashes around the (|) chars
 	if ($::uname =~ /FreeBSD/) {
Only in new/: flexbackup~

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

[Hans de Graaff (graaff)]

graaff      10/11/09 18:26:21

  Modified:            
                        flexbackup-1.2.1-perl-5.12-deprecation-warning.patch
  Log:
  Fix perl 5.12 deprecation warnings properly by merging both patches.
  (Portage version: 2.1.8.3/cvs/Linux x86_64)

Revision  Changes    Path
1.2                  app-backup/flexbackup/files/flexbackup-1.2.1-perl-5.12-deprecation-warning.patch

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

Index: flexbackup-1.2.1-perl-5.12-deprecation-warning.patch
===================================================================
RCS file: /var/cvsroot/gentoo-x86/app-backup/flexbackup/files/flexbackup-1.2.1-perl-5.12-deprecation-warning.patch,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- flexbackup-1.2.1-perl-5.12-deprecation-warning.patch	14 Aug 2010 08:44:41 -0000	1.1
+++ flexbackup-1.2.1-perl-5.12-deprecation-warning.patch	9 Nov 2010 18:26:21 -0000	1.2
@@ -1,22 +1,29 @@
-diff -ubB old/flexbackup new/flexbackup
---- old/flexbackup	2010-07-30 11:44:34.000000000 -0400
-+++ new/flexbackup	2010-07-30 11:46:03.000000000 -0400
-@@ -1050,7 +1050,7 @@
+--- 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,6 +1053,6 @@
      } else {
  	$prunekey = $dir;
      }
 -    if (defined(%{$::prune{$prunekey}})) {
-+    if (%{$::prune{$prunekey}}) {
++    if (defined($prune{$prunekey})) {
  	&log("| NOTE: \$prune is ignored for type=dump");
      }
- 
-@@ -4882,7 +4882,7 @@
+@@ -4885,7 +4885,7 @@
  	$prunekey = $dir;
      }
  
 -    if (defined(%{$::prune{$prunekey}})) {
-+    if (%{$::prune{$prunekey}}) {
++    if (defined($prune{$prunekey})) {
  		my $rex;
  	# FreeBSD needs -E (above) and no backslashes around the (|) chars
  	if ($::uname =~ /FreeBSD/) {
-Only in new/: flexbackup~