Use homegrown AUTHOR detection

diff --git a/t/33storage_reconnect.t b/t/33storage_reconnect.t
index 5684134..2a9f202 100644 (file)
--- a/t/33storage_reconnect.t
+++ b/t/33storage_reconnect.t
@@ -7,14 +7,17 @@ use Test::More;
 use lib qw(t/lib);
 use DBICTest;
 
-{
-  no warnings qw/once/;
-  require inc::Module::Install;
-  plan $Module::Install::AUTHOR 
-    ? (tests => 6) 
-    : (skip_all => 'Test temporarily disabled due to a widespread buggy SQLite version')
-  ;
-}
+# equivalent of $Module::Install::AUTHOR
+my $author =
+  not  -d './inc'
+    or
+  -e ($^O eq 'VMS' ? './inc/_author' : './inc/.author')
+;
+
+plan $author
+  ? (tests => 6)
+  : (skip_all => 'Test temporarily disabled due to a widespread buggy SQLite version')
+;
 
 my $db_orig = "$FindBin::Bin/var/DBIxClass.db";
 my $db_tmp  = "$db_orig.tmp";