gmusicbrowser: add upstream patch for perl 5.24 compat

Fixes #5855

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}";

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"