commit: 9ece040654b7bceef9dba5e7bc0ab3323941fdc0 Author: Andreas Sturmlechner <andreas.sturmlechner <AT> gmail <DOT> com> AuthorDate: Tue Jul 26 15:49:10 2016 +0000 Commit: Michael Palimaka <kensington <AT> gentoo <DOT> org> CommitDate: Wed Jul 27 15:55:39 2016 +0000 URL: https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=9ece0406
kde-apps/kdebase-kioslaves: Add Perl 5.22.0 fix Taken from 16.08 branch. Package-Manager: portage-2.2.28 .../kdebase-kioslaves-16.04.3-perl-5.22.patch | 37 ++++++++++++++++++++++ .../kdebase-kioslaves-16.04.3-r1.ebuild | 5 ++- 2 files changed, 41 insertions(+), 1 deletion(-) diff --git a/kde-apps/kdebase-kioslaves/files/kdebase-kioslaves-16.04.3-perl-5.22.patch b/kde-apps/kdebase-kioslaves/files/kdebase-kioslaves-16.04.3-perl-5.22.patch new file mode 100644 index 0000000..487f408 --- /dev/null +++ b/kde-apps/kdebase-kioslaves/files/kdebase-kioslaves-16.04.3-perl-5.22.patch @@ -0,0 +1,37 @@ +commit 36139181fff43c227023f4c03c1e1a31e1be9dda +Author: Tomáš Trnka <[email protected]> +Date: Thu Jul 21 21:34:53 2016 +0200 + + info: remove extra defined(@array) + + Such syntax is long deprecated and a fatal error in Perl 5.22.0 [1]. + + This commit is the KDE4 equivalent of kio-extras.git commit + af92d6180d479d1e56bc549bbda30a3036687182. + + BUG: 359015 + + [1] http://perldoc.perl.org/perl5220delta.html + +diff --git a/kioslave/info/kde-info2html b/kioslave/info/kde-info2html +index 8dcc28f..0f217ae 100755 +--- a/kioslave/info/kde-info2html ++++ b/kioslave/info/kde-info2html +@@ -171,7 +171,7 @@ sub FileNotFound { + next if $looking && !/\* Menu/; + $looking = 0; + my @item = &ParseMenuItem($_,'dir'); +- if (!defined(@item)) { next } ++ if (!@item) { next } + my ($MenuLinkTag, $MenuLinkFile, $MenuLinkRef, $MenuLinkText) = @item; + if ($MenuLinkRef eq $FileName) { + &Redirect($MenuLinkFile, $MenuLinkTag); +@@ -429,7 +429,7 @@ sub ParseMenuItem { + sub MenuItem2HTML { + my ($Line, $BaseInfoFile) = @_; + my @parse_results = &ParseMenuItem($Line, $BaseInfoFile); +- if (!defined (@parse_results)) { return $Line; } ++ if (!@parse_results) { return $Line; } + my ($MenuLinkTag, $MenuLinkFile, $MenuLinkRef, $MenuLinkText) = @parse_results; + #-- produce a HTML line + return "<tr class=\"infomenutr\"><td class=\"infomenutd\" style=\"width:30%\"><ul><li><a href=\"info:/$MenuLinkFile/$MenuLinkTag\">$MenuLinkRef</a></ul></td><td class=\"infomenutd\">$MenuLinkText"; diff --git a/kde-apps/kdebase-kioslaves/kdebase-kioslaves-16.04.3-r1.ebuild b/kde-apps/kdebase-kioslaves/kdebase-kioslaves-16.04.3-r1.ebuild index ba3a176..84d9b45 100644 --- a/kde-apps/kdebase-kioslaves/kdebase-kioslaves-16.04.3-r1.ebuild +++ b/kde-apps/kdebase-kioslaves/kdebase-kioslaves-16.04.3-r1.ebuild @@ -38,7 +38,10 @@ KMEXTRA=" kdeeject " -PATCHES=( "${FILESDIR}/${P}-webkit.patch" ) +PATCHES=( + "${FILESDIR}/${P}-webkit.patch" + "${FILESDIR}/${P}-perl-5.22.patch" +) src_configure() { local mycmakeargs=(
