File gmusicbrowser-1.1.15-fix-perl-5.24.patch of Package gmusicbrowser

--- a/gmusicbrowser_list.pm
+++ b/gmusicbrowser_list.pm
@@ -7998,7 +7998,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}";
--- a/gmusicbrowser.pl
+++ b/gmusicbrowser.pl
@@ -8977,7 +8977,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);