Eliminate use of qw() syntax errors on 5.1.7.

Changes

@@ -9,6 +9,8 @@ Revision history for Perl extension DBIx::Connector.
         Perls. Thanks to Mark Lawrence for the report (Issue #17).
       - Removed a couple of leftover examples of the `catch` feature removed
         in v0.50. Thanks to Randy Stauner for the patch!
+      - Eliminated more "Use of qw(...) as parentheses" syntax errors in tests
+        when running on Perl 5.17.
 
 0.51  2012-02-18T00:14:48Z
       - Fixed internal exception handling on Perls less than 5.14, where some

t/run.t

@@ -145,7 +145,7 @@ NOEXIT: {
     no warnings;
 
     # Make sure we don't exit the app via `next` or `last`.
-    for my $mode qw(ping no_ping fixup) {
+    for my $mode (qw(ping no_ping fixup)) {
         $conn->mode($mode);
         ok !$conn->run(sub { next }), "Return via next should fail";
         ok !$conn->run(sub { last }), "Return via last should fail";

t/svp.t

@@ -153,7 +153,7 @@ NOEXIT: {
 
     $conn->txn(sub {
         # Make sure we don't exit the app via `next` or `last`.
-        for my $mode qw(ping no_ping fixup) {
+        for my $mode (qw(ping no_ping fixup)) {
             $conn->mode($mode);
 
             $keyword = 'next';

t/txn.t

@@ -177,7 +177,7 @@ NOEXIT: {
     });
 
     # Make sure we don't exit the app via `next` or `last`.
-    for my $mode qw(ping no_ping fixup) {
+    for my $mode (qw(ping no_ping fixup)) {
         $conn->mode($mode);
 
         $keyword = 'next';