[Bast-commits] r5763 - DBIx-Class/0.08/trunk/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-03-17 23:57:49 +0000 (Tue, 17 Mar 2009)
New Revision: 5763

Modified:
   DBIx-Class/0.08/trunk/t/33storage_reconnect.t
Log:
Basic binary op logic FAIL

Modified: DBIx-Class/0.08/trunk/t/33storage_reconnect.t
===================================================================
--- DBIx-Class/0.08/trunk/t/33storage_reconnect.t	2009-03-17 17:08:31 UTC (rev 5762)
+++ DBIx-Class/0.08/trunk/t/33storage_reconnect.t	2009-03-17 23:57:49 UTC (rev 5763)
@@ -8,11 +8,11 @@
 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)