From: Peter Rabbitson Date: Tue, 17 Mar 2009 23:57:49 +0000 (+0000) Subject: Basic binary op logic FAIL X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=79fefe056c91c6e7d06ae980c348debe37cad5c9;p=dbsrgits%2FDBIx-Class-Historic.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)