::DBI:Replicated - merge connect_info from master to replicants

[dbsrgits/DBIx-Class.git] / t / 82cascade_copy.t

diff --git a/t/82cascade_copy.t b/t/82cascade_copy.t
index e5048a1..26b8425 100644 (file)
--- a/t/82cascade_copy.t
+++ b/t/82cascade_copy.t
@@ -5,7 +5,7 @@ use Test::More;
 use lib qw(t/lib);
 use DBICTest;
 
-my $schema = DBICTest::init_schema();
+my $schema = DBICTest->init_schema();
 
 plan tests => 4;
 my $artist = $schema->resultset('Artist')->find(1);
@@ -14,7 +14,7 @@ my $artist_cds = $artist->search_related('cds');
 my $cover_band;
 
 {
-  no warnings 'redefine';
+  no warnings qw(redefine once);
   local *DBICTest::Artist::result_source_instance = \&DBICTest::Schema::Artist::result_source_instance;
 
   $cover_band = $artist->copy;