Permalink
Browse files

handle qw() in list context (deprecated in v5.14)

  • Loading branch information...
gregoa authored and Xaerxess committed Mar 12, 2014
1 parent ba62e77 commit 3bd3da22af39df848eebf6db69ab2e7e200c82c9
Showing with 2 additions and 2 deletions.
  1. +2 −2 t/01-basic.t
@@ -11,7 +11,7 @@ BEGIN { use_ok('YAML::AppConfig') }
ok( $app, "Instantiated object from file." );
isa_ok( $app, "YAML::AppConfig", "Asserting isa YAML::AppConfig" );
my $c = 1;
for my $var qw(foo bar) {
for my $var (qw(foo bar)) {
is( $app->get($var), $c, "Retrieving value for $var." );
my $method = "get_$var";
ok( $app->can($method), "Checking that \$app can get_$var." );
@@ -31,7 +31,7 @@ BEGIN { use_ok('YAML::AppConfig') }
ok( $app, "Instantiated object from string." );
isa_ok( $app, "YAML::AppConfig", "Asserting isa YAML::AppConfig" );
my $c = 1;
for my $var qw(foo bar) {
for my $var (qw(foo bar)) {
is( $app->get($var), $c, "Retrieving value for $var." );
my $method = "get_$var";
ok( $app->can($method), "Checking that \$app can get_$var." );

0 comments on commit 3bd3da2

Please sign in to comment.