| Subject: | perl 5.13 deprecation in TC |
for qw() {} is deprecated.
| Subject: | patch.txt |
diff --git a/lib/Test/Carp.pm b/lib/Test/Carp.pm
index 6d53986..b439f12 100644
--- a/lib/Test/Carp.pm
+++ b/lib/Test/Carp.pm
@@ -27,12 +27,12 @@ sub import {
}
no strict 'refs';
- for my $func qw(
+ for my $func (qw(
does_carp does_cluck
does_croak does_confess
does_carp_that_matches does_cluck_that_matches
does_croak_that_matches does_confess_that_matches
- ) {
+ )) {
*{ $caller . "::$func" } = *{$func};
};
}