X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F33storage_reconnect.t;fp=t%2F33storage_reconnect.t;h=5bd797e8d522acfef5773edcda7c38d3caf62dc8;hb=79fefe056c91c6e7d06ae980c348debe37cad5c9;hp=2a9f202ba2eae5630e60fbe9f6b21413e9ccbc0e;hpb=92ed069505f7c50adc6910ddf7e230f80acd5db1;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/33storage_reconnect.t b/t/33storage_reconnect.t
index 2a9f202..5bd797e 100644
--- a/t/33storage_reconnect.t
+++ b/t/33storage_reconnect.t
@@ -8,11 +8,11 @@ use lib qw(t/lib);
 use DBICTest;
 
 # equivalent of $Module::Install::AUTHOR
-my $author =
-  not  -d './inc'
+my $author = (
+  ( not  -d './inc' )
     or
-  -e ($^O eq 'VMS' ? './inc/_author' : './inc/.author')
-;
+  ( -e ($^O eq 'VMS' ? './inc/_author' : './inc/.author') )
+);
 
 plan $author
   ? (tests => 6)