diff options
| author | Paul Johnson <paul@pjcj.net> | 2010-09-09 18:39:17 +0200 |
|---|---|---|
| committer | Florian Ragwitz <rafl@debian.org> | 2010-09-10 06:13:33 +0200 |
| commit | 9d2145586ecc6a9c2295566c0df0123b78dac159 (patch) | |
| tree | 344b8d745f96f3edcb56adf5753b6d364f322924 /lib/Tie | |
| parent | 4af46cb86a18ea6af79739bf5f9574a30d36e844 (diff) | |
| download | perl-9d2145586ecc6a9c2295566c0df0123b78dac159.tar.gz | |
Remove qw(...) as parentheses deprecated warnings
Diffstat (limited to 'lib/Tie')
| -rw-r--r-- | lib/Tie/Hash.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Tie/Hash.t b/lib/Tie/Hash.t index 70cafd3f06..c7b4ebe63f 100644 --- a/lib/Tie/Hash.t +++ b/lib/Tie/Hash.t @@ -7,7 +7,7 @@ use Test::More tests => 3; BEGIN {use_ok( 'Tie::Hash' )}; # these are "abstract virtual" parent methods -for my $method qw( TIEHASH EXISTS ) { +for my $method (qw( TIEHASH EXISTS )) { eval { Tie::Hash->$method() }; like( $@, qr/doesn't define an? $method/, "croaks on inherited $method()" ); } |