From: Peter Rabbitson <ribasushi@cpan.org>
Date: Mon, 9 Mar 2009 12:42:12 +0000 (+0000)
Subject: Use homegrown AUTHOR detection
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d02304e1625bc11507c7df7fa8bc5c430962eceb;p=dbsrgits%2FDBIx-Class-Historic.git

Use homegrown AUTHOR detection
---

diff --git a/t/33storage_reconnect.t b/t/33storage_reconnect.t
index 5684134..2a9f202 100644
--- 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";