qw() in list context is an error now

Drop this syntax as it's no longer supported[0] in 5.18.

Thanks to gregor herrmann for this patch[1]!

[0] http://search.cpan.org/dist/perl-5.18.0/pod/perldelta.pod#qw%28...%29_can_no_longer_be_used_as_parentheses
[1] http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=711443#10

Author: gregoa

t/00_setup.t

@@ -4,7 +4,7 @@ use warnings;
 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;

t/simple.t

@@ -7,7 +7,7 @@ use Path::Class;
 
 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}$/ );