27 lines
1.0 KiB
Diff
27 lines
1.0 KiB
Diff
|
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}";
|