[libcode-tidyall-perl] 103/374: put () around qw

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to branch master
in repository libcode-tidyall-perl.

commit c94be2618453c4aaa266bf88db05e756875fab24
Author: Jonathan Swartz <swartz at pobox.com>
Date:   Wed Jul 18 10:29:45 2012 -0700

    put () around qw
---
 lib/Code/TidyAll/t/Zglob.pm |   10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/Code/TidyAll/t/Zglob.pm b/lib/Code/TidyAll/t/Zglob.pm
index ec1b869..1b7de1f 100644
--- a/lib/Code/TidyAll/t/Zglob.pm
+++ b/lib/Code/TidyAll/t/Zglob.pm
@@ -7,25 +7,25 @@ sub test_match : Tests {
 
     $zglob = "**/*.txt";
     $regex = zglob_to_regex($zglob);
-    foreach my $path qw(foo.txt foo/baz.txt foo/bar/baz.txt) {
+    foreach my $path (qw(foo.txt foo/baz.txt foo/bar/baz.txt)) {
         like( $path, $regex, "$path matches $zglob" );
     }
-    foreach my $path qw(foo/bar/baz.tx) {
+    foreach my $path (qw(foo/bar/baz.tx)) {
         unlike( $path, $regex, "$path does not match $zglob" );
     }
 
     $zglob = "**/*";
     $regex = zglob_to_regex($zglob);
-    foreach my $path qw(foo foo.txt foo/bar foo/baz.txt) {
+    foreach my $path (qw(foo foo.txt foo/bar foo/baz.txt)) {
         like( $path, $regex, "$path matches $zglob" );
     }
 
     $zglob = "foo/**/*.txt";
     $regex = zglob_to_regex($zglob);
-    foreach my $path qw(foo/baz.txt foo/bar/baz.txt foo/bar/baz/blargh.txt) {
+    foreach my $path (qw(foo/baz.txt foo/bar/baz.txt foo/bar/baz/blargh.txt)) {
         like( $path, $regex, "$path matches $zglob" );
     }
-    foreach my $path qw(foo.txt foo/bar/baz.tx) {
+    foreach my $path (qw(foo.txt foo/bar/baz.tx)) {
         unlike( $path, $regex, "$path does not match $zglob" );
     }
 }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcode-tidyall-perl.git