Skip Menu |

This queue is for tickets about the Module-Want CPAN distribution.

Report information
The Basics
Id: 68354
Status: resolved
Priority: 0/
Queue: Module-Want

People
Owner: Nobody in particular
Requestors: TODDR [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: 0.4



Subject: perl 5.14 deprecation messages in test suite
Use of qw(...) as parentheses is deprecated at t/00.load.t line 25.
This patch complies with perl 5.14
Subject: patch.txt
commit dcfdffaf320d6865f26793f10dffc14352b9e155 Author: Todd Rinaldo <toddr@cpanel.net> Date: Sat May 21 00:59:52 2011 -0500 RT 68354 - perl 5.14 deprecation messages in test suite diff --git a/t/00.load.t b/t/00.load.t index 4cccb43..63e8e17 100644 --- a/t/00.load.t +++ b/t/00.load.t @@ -22,7 +22,7 @@ does_carp_that_matches( qr/Invalid Namespace/, ); -for my $ns qw( _what Acme Acme::XYZ Acme::ABC::DEF::X::Y::Z Acme::XYZ Acme'ABC::DEF::X::Y::Z Acme::ABC::DEF::X::Y'Z Acme::ABC::DEF'X::Y::Z Acme'ABC'DEF'X'Y'Z ) { +for my $ns (qw( _what Acme Acme::XYZ Acme::ABC::DEF::X::Y::Z Acme::XYZ Acme'ABC::DEF::X::Y::Z Acme::ABC::DEF::X::Y'Z Acme::ABC::DEF'X::Y::Z Acme'ABC'DEF'X'Y'Z )) { ok(Module::Want::is_ns($ns), "$ns is an NS"); } @@ -101,4 +101,4 @@ SKIP: { 'import(X,Y,Z) calls have_mod(NAME) and does not try to import functions' ); -}; \ No newline at end of file +};