| Subject: | Module uses perl 5.14 deprecated methods. |
the use of bare for qw(); syntax is now deprecated in perl 5.14. This patch needs to be applied
to get rid of a warning in the test suite. It's the only deprecated use of qw I could find in the
code.
| Subject: | patch.txt |
diff --git a/Lite/t/v4_new_cis.t b/Lite/t/v4_new_cis.t
index 4c26258..f9c3788 100644
--- a/Lite/t/v4_new_cis.t
+++ b/Lite/t/v4_new_cis.t
@@ -43,12 +43,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");
}