USES=		gettext shebangfix

--- gmusicbrowser.pl.orig	2019-02-23 05:33:24 UTC

+++ 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);

--- gmusicbrowser_list.pm.orig	2019-02-23 05:30:39 UTC

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