X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=t%2F73oracle.t;h=b61a6a8053337fb19472614cbf63846c7b10a108;hp=7d6c79016efc849bd3901c23a639cb14dd456fd3;hb=514b84f6b60b566d75d2ff2ddd08659c4cf7b427;hpb=a33a40dee2fb4cdcc5fb1da76c66498cbf36e8e8

diff --git a/t/73oracle.t b/t/73oracle.t
index 7d6c790..b61a6a8 100644
--- a/t/73oracle.t
+++ b/t/73oracle.t
@@ -6,8 +6,8 @@ use warnings;
 
 use Test::Exception;
 use Test::More;
-use Sub::Name;
 use Try::Tiny;
+use DBIx::Class::_Util 'set_subname';
 
 use DBICTest;
 
@@ -111,7 +111,7 @@ for my $use_insert_returning ($test_server_supports_insert_returning ? (1,0) : (
 
     no warnings qw/once redefine/;
     my $old_connection = DBICTest::Schema->can('connection');
-    local *DBICTest::Schema::connection = subname 'DBICTest::Schema::connection' => sub {
+    local *DBICTest::Schema::connection = set_subname 'DBICTest::Schema::connection' => sub {
       my $s = shift->$old_connection (@_);
       $s->storage->_use_insert_returning ($use_insert_returning);
       $s->storage->sql_maker_class('DBIx::Class::SQLMaker::OracleJoins') if $force_ora_joins;