From: Peter Rabbitson <ribasushi@cpan.org>
Date: Tue, 17 Mar 2009 23:57:49 +0000 (+0000)
Subject: Basic binary op logic FAIL
X-Git-Tag: v0.08100~36
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=79fefe056c91c6e7d06ae980c348debe37cad5c9;p=dbsrgits%2FDBIx-Class.git

Basic binary op logic FAIL
---

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)