X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FMSSQL.pm;fp=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FMSSQL.pm;h=9a49a42dbe2bfdd555e4a295be7e4d375692d621;hb=e2741c7fd695dca054614f297b01d351a45bbf38;hp=f07adfdc7cf560d57aedc111711f311411fb7d1d;hpb=82c5f9168e30bc9dc7b681058298bb342582c5ec;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/Storage/DBI/MSSQL.pm b/lib/DBIx/Class/Storage/DBI/MSSQL.pm
index f07adfd..9a49a42 100644
--- a/lib/DBIx/Class/Storage/DBI/MSSQL.pm
+++ b/lib/DBIx/Class/Storage/DBI/MSSQL.pm
@@ -9,8 +9,7 @@ use base qw/
 /;
 use mro 'c3';
 
-use Try::Tiny;
-use DBIx::Class::_Util qw( dbic_internal_try sigwarn_silencer );
+use DBIx::Class::_Util qw( dbic_internal_try dbic_internal_catch sigwarn_silencer );
 use namespace::clean;
 
 __PACKAGE__->mk_group_accessors(simple => qw/
@@ -182,7 +181,7 @@ sub _ping {
     $dbh->do('select 1');
     1;
   }
-  catch {
+  dbic_internal_catch {
     # MSSQL is *really* annoying wrt multiple active resultsets,
     # and this may very well be the reason why the _ping failed
     #