wallenstein/void-packages
1
0
Fork 0
mirror of https://github.com/void-linux/void-packages.git synced 2025-08-02 19:02:57 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

gmusicbrowser: add upstream patch for perl 5.24 compat

Browse source 
Fixes #5855
This commit is contained in:
Michael Gehring 2017-02-28 14:46:38 +01:00
parent f09f52cfea
commit c61f901173
2 changed files with 27 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
srcpkgs/gmusicbrowser/patches/853840eb9dad0b59ad2dac5d303f5929b2f09f21.diff Normal file
View file

@ -0,0 +1,26 @@
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}";

2
srcpkgs/gmusicbrowser/template
View file

@ -1,7 +1,7 @@
# Template file for 'gmusicbrowser' # Template file for 'gmusicbrowser'
pkgname=gmusicbrowser pkgname=gmusicbrowser
version=1.1.15 version=1.1.15
revision=3 revision=4
noarch=yes noarch=yes
nocross=yes nocross=yes
hostmakedepends="perl" hostmakedepends="perl"