Permalink
Browse files

remove 2 superfluous "my", fix error with perl 5.24

  • Loading branch information...
tacvbo authored and squentin committed May 30, 2016
1 parent f41d346 commit 853840eb9dad0b59ad2dac5d303f5929b2f09f21
Showing with 2 additions and 2 deletions.
  1. +1 −1 gmusicbrowser.pl
  2. +1 −1 gmusicbrowser_list.pm
View
@@ -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);
View
@@ -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}";

0 comments on commit 853840e

Please sign in to comment.