X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi-t%2F18-has_a.t;h=ca7786ef863599d60eb699b03adf42f7f2ea0ba5;hb=331a564;hp=d2fe46278c88e672f92ffbfb6873854ddc59c283;hpb=289ba852733fc488dc43cd474f47780f7fa1771e;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/cdbi-t/18-has_a.t b/t/cdbi-t/18-has_a.t
index d2fe462..ca7786e 100644
--- a/t/cdbi-t/18-has_a.t
+++ b/t/cdbi-t/18-has_a.t
@@ -38,7 +38,7 @@ ok(
 	ok $pj = $btaste->Director, "Bad taste now hasa() director";
 	isa_ok $pj => 'Director';
 	{
-		no warnings 'redefine';
+		no warnings qw(redefine once);
 		local *Ima::DBI::st::execute =
 			sub { ::fail("Shouldn't need to query db"); };
 		is $pj->id, 'Peter Jackson', 'ID already stored';