From: Marcus Ramberg <mramberg@cpan.org>
Date: Mon, 10 Mar 2008 09:50:47 +0000 (+0000)
Subject: proper skip
X-Git-Tag: v0.08240~542
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=86583fa7cdbb220117f591f4085093e4c383eaca;p=dbsrgits%2FDBIx-Class.git

proper skip
---

diff --git a/t/93storage_replication.t b/t/93storage_replication.t
index 34c0f48..67b09c2 100644
--- a/t/93storage_replication.t
+++ b/t/93storage_replication.t
@@ -7,10 +7,13 @@ use File::Copy;
 use DBICTest;
 
 use Test::More;
-eval {use DBD::Multi};
-plan skip_all => 'No DBD::Multi' if ($@);
 
-plan tests => 3;
+BEGIN {
+    eval "use DBD::Multi";
+    plan $@
+        ? ( skip_all => 'needs DBD::Multi for testing' )
+        : ( tests => 3 );
+}
 
 my $schema = DBICTest->init_schema();