X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ficdt%2Fengine_specific%2Ffirebird.t;h=05ef3812df0ab68c83e621248cb6969cead4561f;hb=bbf6a9a5d39cbf1c9d22cccd298ae95ac0fef694;hp=ffe68525967260e8c69fbc89e4d4373f7b58891b;hpb=bf3587cecb3637047323634b0e00a5fbcb4a3409;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/icdt/engine_specific/firebird.t b/t/icdt/engine_specific/firebird.t
index ffe6852..05ef381 100644
--- a/t/icdt/engine_specific/firebird.t
+++ b/t/icdt/engine_specific/firebird.t
@@ -4,9 +4,9 @@ use strict;
 use warnings;
 
 use Test::More;
+use DBIx::Class::_Util 'scope_guard';
 use lib qw(t/lib);
 use DBICTest;
-use Scope::Guard ();
 
 my $env2optdep = {
   DBICTEST_FIREBIRD => 'test_rdbms_firebird',
@@ -42,7 +42,7 @@ for my $prefix (keys %$env2optdep) { SKIP: {
     on_connect_call => [ 'datetime_setup' ],
   });
 
-  my $sg = Scope::Guard->new(sub { cleanup($schema) } );
+  my $sg = scope_guard { cleanup($schema) };
 
   eval { $schema->storage->dbh->do('DROP TABLE "event"') };
   $schema->storage->dbh->do(<<'SQL');