Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
handle qw() in list context (deprecated in v5.14)
  • Loading branch information
gregoa authored and Xaerxess committed Mar 12, 2014
1 parent ba62e77 commit 3bd3da2
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions t/01-basic.t
Expand Up @@ -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." );
Expand All @@ -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." );
Expand Down

0 comments on commit 3bd3da2

Please sign in to comment.