X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F106dbic_carp.t;h=f6bd91d8ac0b9efab76e155f41d30185ee677612;hb=a3a17a151f4001019b64ef83d7e304bb7f0291af;hp=241fc5d61e0ab1c8ccba74965c9de138ceae7073;hpb=5e0e5426b36b5df5f9d1394068cd9f7f1c81087a;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/106dbic_carp.t b/t/106dbic_carp.t
index 241fc5d..f6bd91d 100644
--- a/t/106dbic_carp.t
+++ b/t/106dbic_carp.t
@@ -7,9 +7,9 @@ BEGIN { $ENV{DBIC_TRACE} = 0 }
 use Test::More;
 use Test::Warn;
 use Test::Exception;
-use DBIx::Class::Carp;
 use lib 't/lib';
 use DBICTest;
+use DBIx::Class::Carp;
 
 {
   sub DBICTest::DBICCarp::frobnicate {
@@ -38,7 +38,9 @@ use DBICTest;
 
     sub thrower {
       sub {
-        DBICTest->init_schema(no_deploy => 1)->throw_exception('time to die');
+        DBICTest->init_schema(no_deploy => 1)->storage->dbh_do(sub {
+          shift->throw_exception('time to die');
+        })
       }->();
     }