summaryrefslogtreecommitdiff
path: root/pcr/gmusicbrowser/perl524.patch
blob: 0bbf388cde94151164cdad97f55aa7074fb844a4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
diff -ruN gmusicbrowser-1.1.15.ORIG/gmusicbrowser_list.pm gmusicbrowser-1.1.15/gmusicbrowser_list.pm
--- gmusicbrowser-1.1.15.ORIG/gmusicbrowser_list.pm	2015-08-20 01:47:16.000000000 +0200
+++ gmusicbrowser-1.1.15/gmusicbrowser_list.pm	2016-06-06 18:31:36.650112015 +0200
@@ -7998,7 +7998,7 @@
 			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 -ruN gmusicbrowser-1.1.15.ORIG/gmusicbrowser.pl gmusicbrowser-1.1.15/gmusicbrowser.pl
--- gmusicbrowser-1.1.15.ORIG/gmusicbrowser.pl	2015-08-20 01:47:16.000000000 +0200
+++ gmusicbrowser-1.1.15/gmusicbrowser.pl	2016-06-06 18:31:16.760550402 +0200
@@ -8977,7 +8977,7 @@
 
 	($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);