Hello community, here is the log from the commit of package gmusicbrowser for openSUSE:Factory checked in at 2016-08-03 11:44:08 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/gmusicbrowser (Old) and /work/SRC/openSUSE:Factory/.gmusicbrowser.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "gmusicbrowser" Changes: -------- --- /work/SRC/openSUSE:Factory/gmusicbrowser/gmusicbrowser.changes 2015-08-31 22:59:03.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.gmusicbrowser.new/gmusicbrowser.changes 2016-08-03 11:44:19.000000000 +0200 @@ -1,0 +2,6 @@ +Fri Jul 29 14:46:21 UTC 2016 - [email protected] + +- Add gmusicbrowser-1.1.15-fix-perl-5.24.patch from upstream: fix + an error with perl 5.24 (commit 853840e). + +------------------------------------------------------------------- New: ---- gmusicbrowser-1.1.15-fix-perl-5.24.patch ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ gmusicbrowser.spec ++++++ --- /var/tmp/diff_new_pack.Lonadi/_old 2016-08-03 11:44:20.000000000 +0200 +++ /var/tmp/diff_new_pack.Lonadi/_new 2016-08-03 11:44:20.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package gmusicbrowser # -# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -24,6 +24,8 @@ Group: Productivity/Multimedia/Sound/Players Url: http://gmusicbrowser.org/ Source: http://gmusicbrowser.org/download/%{name}-%{version}.tar.gz +# PATCH-FIX-UPSTREAM gmusicbrowser-1.1.15-fix-perl-5.24.patch -- Fix an error with perl 5.24 (commit 853840e). +Patch0: %{name}-1.1.15-fix-perl-5.24.patch BuildRequires: fdupes BuildRequires: hicolor-icon-theme BuildRequires: perl @@ -76,6 +78,8 @@ %prep %setup -q +%patch0 -p1 + # Trim Unity actions. lines=$(( $(grep -m1 -no '^Actions=' %{name}.desktop | sed 's/^\([[:digit:]]*\):.*$/\1/') - 1 )) head -n $lines %{name}.desktop > %{name}.desktop.new ++++++ gmusicbrowser-1.1.15-fix-perl-5.24.patch ++++++ --- a/gmusicbrowser_list.pm +++ b/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}"; --- a/gmusicbrowser.pl +++ b/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);
