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

Xaerxess · Mar 12, 2014 · 3bd3da22af39df848eebf6db69ab2e7e200c82c9 · 3bd3da2
1 parent ba62e77
commit 3bd3da22af39df848eebf6db69ab2e7e200c82c9
Unified Split

Showing with 2 additions and 2 deletions.

+2 −2 t/01-basic.t
diff --git a/t/01-basic.t b/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." );