Description: qw() in list context is an error now
Origin: vendor
Bug-Debian: http://bugs.debian.org/711443
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2013-06-09

--- a/t/00_setup.t
+++ b/t/00_setup.t
@@ -4,7 +4,7 @@
 use Test::More;
 use Archive::Extract;
 
-foreach my $name qw(test-project test-project-packs test-project-packs2 test-encoding) {
+foreach my $name (qw(test-project test-project-packs test-project-packs2 test-encoding)) {
     next if -d $name;
     my $ae = Archive::Extract->new( archive => "$name.tgz" );
     $ae->extract;
--- a/t/simple.t
+++ b/t/simple.t
@@ -7,7 +7,7 @@
 
 my $checkout_directory = dir('t/checkout');
 
-foreach my $directory qw(test-project test-project-packs test-project-packs2)
+foreach my $directory (qw(test-project test-project-packs test-project-packs2))
 {
     my $git = Git::PurePerl->new( directory => $directory );
     like( $git->master_sha1, qr/^[a-z0-9]{40}$/ );