Escape more frames when determining carp/throw_exception originator

[dbsrgits/DBIx-Class.git] / t / 106dbic_carp.t

diff --git a/t/106dbic_carp.t b/t/106dbic_carp.t
index 241fc5d..e6710d8 100644 (file)
--- a/t/106dbic_carp.t
+++ b/t/106dbic_carp.t
@@ -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');
+        })
       }->();
     }