[SCM] gmusicbrowser/master: Add patch for Perl 5.24 (taken from upstream)

[jspricke at users.alioth.debian.org]

The following commit has been merged in the master branch:
commit 9cdcf79f8402fea7907cb5c42a20ed685425b253
Author: Jochen Sprickerhof <jspricke at debian.org>
Date:   Thu Sep 29 18:34:37 2016 +0200

    Add patch for Perl 5.24 (taken from upstream)

diff --git a/debian/patches/series b/debian/patches/series
index ba96545..e8ef8a0 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1,3 @@
 no-extra-copying
 shimmer-layouts
+superfluous-my
diff --git a/debian/patches/superfluous-my b/debian/patches/superfluous-my
new file mode 100644
index 0000000..4b8e2de
--- /dev/null
+++ b/debian/patches/superfluous-my
@@ -0,0 +1,36 @@
+From 853840eb9dad0b59ad2dac5d303f5929b2f09f21 Mon Sep 17 00:00:00 2001
+From: Octavio Ruiz <tacvbo at tacvbo.net>
+Date: Mon, 30 May 2016 19:18:44 +0200
+Subject: [PATCH] remove 2 superfluous "my", fix error with perl 5.24
+
+---
+ gmusicbrowser.pl      | 2 +-
+ gmusicbrowser_list.pm | 2 +-
+ 2 files changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/gmusicbrowser.pl b/gmusicbrowser.pl
+index bbf16d7..18fab6a 100755
+--- a/gmusicbrowser.pl
++++ b/gmusicbrowser.pl
+@@ -9020,7 +9020,7 @@ sub Set
+ 
+ 	($cmd,my $pattern)= split /:/,$cmd,2;
+ 	$pattern='' unless defined $pattern;
+-	my ($basecmd,my $prop)= Songs::filter_properties($field,"$cmd:$pattern");
++	my ($basecmd, $prop)= Songs::filter_properties($field,"$cmd:$pattern");
+ 	if (!$prop)
+ 	{	$cmd=  Songs::Field_property($field,'default_filter');
+ 		($basecmd,$prop)= Songs::filter_properties($field,$cmd);
+diff --git a/gmusicbrowser_list.pm b/gmusicbrowser_list.pm
+index 76d2f86..26d21ae 100644
+--- a/gmusicbrowser_list.pm
++++ b/gmusicbrowser_list.pm
+@@ -8052,7 +8052,7 @@ sub Make
+ 			unless ($notnow)
+ 			{	#warn "$key ---found in ($code, at deps)\n";
+ 				if (ref $code)
+-				{	my ($func,my @keys)=@$code; #warn " -> ($func, @keys)\n";
++				{	my ($func, @keys)=@$code; #warn " -> ($func, @keys)\n";
+ 					my $out=join ',',map "'$_'", @keys;
+ 					my $in= join ',',map "'$_'", @deps; $in=~s#\?##g;
+ 					$out= @keys>1 ? "\@var{$out}" : "\$var{$out}";

-- 
gmusicbrowser packaging