| Subject: | perl 5.13 deprecation message in test suite. |
Perl 5.13+ no longer supports 'for qw() {}'
This patch corrects your test suite.
http://search.cpan.org/~miyagawa/perl-
5.13.6/pod/perl5135delta.pod#Use_of_qw(...)_as_parentheses
| Subject: | NetAddr-IP-4.033.patch |
commit 0228310837e81d5cfdb1368b12da792bcc48e3be
Author: Todd Rinaldo <toddr@cpan.org>
Date: Tue Nov 16 14:17:26 2010 -0600
fix perl 5.13 deprecation for NetAddr tests
diff --git a/Lite/t/v4-new.t b/Lite/t/v4-new.t
index 263098b..dd952b9 100644
--- a/Lite/t/v4-new.t
+++ b/Lite/t/v4-new.t
@@ -42,12 +42,12 @@ if ($@) {
plan tests => (4 * scalar @a * scalar @m) + 4;
-foreach my $invalid qw(
+foreach my $invalid (qw(
256.1.1.1
256.256.1.1
256.256.256.1
256.256.256.256
-) {
+)) {
ok (! defined NetAddr::IP::Lite->new($invalid), "Invalid IP $invalid returns undef");
}