Add patch for Perl 5.24 (taken from upstream)
Jochen Sprickerhof
7 years ago
| 0 | From 853840eb9dad0b59ad2dac5d303f5929b2f09f21 Mon Sep 17 00:00:00 2001 | |
| 1 | From: Octavio Ruiz <tacvbo@tacvbo.net> | |
| 2 | Date: Mon, 30 May 2016 19:18:44 +0200 | |
| 3 | Subject: [PATCH] remove 2 superfluous "my", fix error with perl 5.24 | |
| 4 | ||
| 5 | --- | |
| 6 | gmusicbrowser.pl | 2 +- | |
| 7 | gmusicbrowser_list.pm | 2 +- | |
| 8 | 2 files changed, 2 insertions(+), 2 deletions(-) | |
| 9 | ||
| 10 | diff --git a/gmusicbrowser.pl b/gmusicbrowser.pl | |
| 11 | index bbf16d7..18fab6a 100755 | |
| 12 | --- a/gmusicbrowser.pl | |
| 13 | +++ b/gmusicbrowser.pl | |
| 14 | @@ -9020,7 +9020,7 @@ sub Set | |
| 15 | ||
| 16 | ($cmd,my $pattern)= split /:/,$cmd,2; | |
| 17 | $pattern='' unless defined $pattern; | |
| 18 | - my ($basecmd,my $prop)= Songs::filter_properties($field,"$cmd:$pattern"); | |
| 19 | + my ($basecmd, $prop)= Songs::filter_properties($field,"$cmd:$pattern"); | |
| 20 | if (!$prop) | |
| 21 | { $cmd= Songs::Field_property($field,'default_filter'); | |
| 22 | ($basecmd,$prop)= Songs::filter_properties($field,$cmd); | |
| 23 | diff --git a/gmusicbrowser_list.pm b/gmusicbrowser_list.pm | |
| 24 | index 76d2f86..26d21ae 100644 | |
| 25 | --- a/gmusicbrowser_list.pm | |
| 26 | +++ b/gmusicbrowser_list.pm | |
| 27 | @@ -8052,7 +8052,7 @@ sub Make | |
| 28 | unless ($notnow) | |
| 29 | { #warn "$key ---found in ($code,@deps)\n"; | |
| 30 | if (ref $code) | |
| 31 | - { my ($func,my @keys)=@$code; #warn " -> ($func, @keys)\n"; | |
| 32 | + { my ($func, @keys)=@$code; #warn " -> ($func, @keys)\n"; | |
| 33 | my $out=join ',',map "'$_'", @keys; | |
| 34 | my $in= join ',',map "'$_'", @deps; $in=~s#\?##g; | |
| 35 | $out= @keys>1 ? "\@var{$out}" : "\$var{$out}"; |