Fixup a bad C< for my qw( ) > unwrapped qw()

kentfredric · wchristian · commit e245c158d9b4 · 2012-05-29T17:18:53.000+02:00
diff --git a/t/simple.t b/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}$/ );

Original file line number	Diff line number	Diff line change
`@@ -7,7 +7,7 @@ use Path::Class;`
`7`	`7`
`8`	`8`	`my $checkout_directory = dir('t/checkout');`
`9`	`9`
`10`		`-foreach my $directory qw(test-project test-project-packs test-project-packs2)`
	`10`	`+foreach my $directory (qw(test-project test-project-packs test-project-packs2))`
`11`	`11`	`{`
`12`	`12`	`my $git = Git::PurePerl->new( directory => $directory );`
`13`	`13`	`like( $git->master_sha1, qr/^[a-z0-9]{40}$/ );`