From c61f90117319acd3992269fc5d62f4ad191e0b79 Mon Sep 17 00:00:00 2001
From: Michael Gehring <mg@ebfe.org>
Date: Tue, 28 Feb 2017 14:46:38 +0100
Subject: [PATCH] gmusicbrowser: add upstream patch for perl 5.24 compat

Fixes #5855
---
 ...840eb9dad0b59ad2dac5d303f5929b2f09f21.diff | 26 +++++++++++++++++++
 srcpkgs/gmusicbrowser/template                |  2 +-
 2 files changed, 27 insertions(+), 1 deletion(-)
 create mode 100644 srcpkgs/gmusicbrowser/patches/853840eb9dad0b59ad2dac5d303f5929b2f09f21.diff

diff --git a/srcpkgs/gmusicbrowser/patches/853840eb9dad0b59ad2dac5d303f5929b2f09f21.diff b/srcpkgs/gmusicbrowser/patches/853840eb9dad0b59ad2dac5d303f5929b2f09f21.diff
new file mode 100644
index 00000000000..b27e8cccf80
--- /dev/null
+++ b/srcpkgs/gmusicbrowser/patches/853840eb9dad0b59ad2dac5d303f5929b2f09f21.diff
@@ -0,0 +1,26 @@
+diff --git a/gmusicbrowser.pl b/gmusicbrowser.pl
+index bbf16d7..18fab6a 100755
+--- gmusicbrowser.pl
++++ 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
+--- gmusicbrowser_list.pm
++++ gmusicbrowser_list.pm
+@@ -8052,7 +8052,7 @@ sub Make
+ 			unless ($notnow)
+ 			{	#warn "$key ---found in ($code,@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}";
diff --git a/srcpkgs/gmusicbrowser/template b/srcpkgs/gmusicbrowser/template
index 780ef17df1e..fe60bf82531 100644
--- a/srcpkgs/gmusicbrowser/template
+++ b/srcpkgs/gmusicbrowser/template
@@ -1,7 +1,7 @@
 # Template file for 'gmusicbrowser'
 pkgname=gmusicbrowser
 version=1.1.15
-revision=3
+revision=4
 noarch=yes
 nocross=yes
 hostmakedepends="perl"