proper skip

diff --git a/t/93storage_replication.t b/t/93storage_replication.t
index 34c0f48..67b09c2 100644 (file)
--- 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();