From: Peter Rabbitson <ribasushi@cpan.org>
Date: Tue, 8 Jul 2014 05:42:06 +0000 (+0200)
Subject: Older perls get confused by this construct - rewrap
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7edb97b0949d66fd79e6f222e08da56cd5ca92fd;p=dbsrgits%2FDBIx-Class-Historic.git

Older perls get confused by this construct - rewrap
---

diff --git a/t/lib/DBICTest.pm b/t/lib/DBICTest.pm
index 432eb87..7bc3dde 100644
--- a/t/lib/DBICTest.pm
+++ b/t/lib/DBICTest.pm
@@ -259,10 +259,16 @@ sub _database {
 }
 
 sub __mk_disconnect_guard {
-  return if DBIx::Class::_ENV_::PEEPEENESS; # leaks handles, delaying DESTROY, can't work right
 
   my $db_file = shift;
-  return unless -f $db_file;
+
+  return if (
+    # this perl leaks handles, delaying DESTROY, can't work right
+    DBIx::Class::_ENV_::PEEPEENESS
+      or
+    ! -f $db_file
+  );
+
 
   my $orig_inode = (stat($db_file))[1]
     or return;