Go to:
Gentoo Home
Documentation
Forums
Lists
Bugs
Planet
Store
Wiki
Get Gentoo!
Gentoo's Bugzilla – Attachment 370548 Details for
Bug 484108
app-portage/g-cpan with dev-lang/perl-5.18 - qw() => (qw())
Home
|
New
–
[Ex]
|
Browse
|
Search
|
Privacy Policy
|
[?]
|
Reports
|
Requests
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Fix
g-cpan-0.16.4-Parenthesise-qw.patch (text/plain), 2.10 KB, created by
Petr Pisar
on 2014-02-16 15:17:25 UTC
(
hide
)
Description:
Fix
Filename:
MIME Type:
Creator:
Petr Pisar
Created:
2014-02-16 15:17:25 UTC
Size:
2.10 KB
patch
obsolete
>From 6d2482faeddb658cd41327d8cc44d1efcaae5788 Mon Sep 17 00:00:00 2001 >From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <petr.pisar@atlas.cz> >Date: Sun, 16 Feb 2014 16:11:53 +0100 >Subject: [PATCH] Parenthesise qw > >Perl 5.18 requires parenthesis around qw operator to produce an array. >--- > bin/g-cpan | 2 +- > lib/Gentoo/CPAN.pm | 4 ++-- > 2 files changed, 3 insertions(+), 3 deletions(-) > >diff --git a/bin/g-cpan b/bin/g-cpan >index a30d271..6e4a528 100644 >--- a/bin/g-cpan >+++ b/bin/g-cpan >@@ -710,7 +710,7 @@ sub generatePackageInfo > > # Detect the file extension, upstream usually uses .tar.gz, but not always > my $module_a_ext = ''; >- foreach my $ext qw(tgz tbz2 tar.bz2 tar.xz tar.Z zip) >+ foreach my $ext (qw(tgz tbz2 tar.bz2 tar.xz tar.Z zip)) > { > if ( $gcpan_run->{'cpan'}{lc($original_ebuild)}{'src_uri'} =~ m/\.\Q$ext\E$/ ) { > $module_a_ext = sprintf 'MODULE_A_EXT="%s"', $ext; >diff --git a/lib/Gentoo/CPAN.pm b/lib/Gentoo/CPAN.pm >index 379e864..0a760d1 100644 >--- a/lib/Gentoo/CPAN.pm >+++ b/lib/Gentoo/CPAN.pm >@@ -322,7 +322,7 @@ sub FindDeps { > close(YAML); > if ( check_yaml(@yaml) ) { > my $arr = YAML::Load(@yaml); >- foreach my $type qw(configure_requires requires build_requires recommends) { >+ foreach my $type (qw(configure_requires requires build_requires recommends)) { > if ( my $ar_type = $arr->{$type} ) { > foreach my $module ( keys %{$ar_type} ) { > next if ( $module eq "" ); >@@ -384,7 +384,7 @@ sub FindDeps { > my (%p) = (); > my $fh; > >- foreach my $type qw(requires configure_requires build_requires) { >+ foreach my $type (qw(requires configure_requires build_requires)) { > if ( $fh = FileHandle->new("<$makefile\0") ) { > local ($/) = ""; > while (<$fh>) { >-- >1.8.3.2 >
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
Attachments on
bug 484108
:
358188
| 370548