--- orig/libclass-dbi-perl-3.0.15/t/18-has_a.t	2005-09-23 12:32:43.000000000 +0200
+++ libclass-dbi-perl-3.0.15/t/18-has_a.t	2006-11-20 11:51:48.000000000 +0100
@@ -34,7 +34,7 @@
 	ok $pj = $btaste->Director, "Bad taste now hasa() director";
 	isa_ok $pj => 'Director';
 	{
-		no warnings 'redefine';
+		no warnings 'once';
 		local *Ima::DBI::st::execute =
 			sub { ::fail("Shouldn't need to query db"); };
 		is $pj->id, 'Peter Jackson', 'ID already stored';