X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F103many_to_many_warning.t;h=36d41a80af1f1055952acbd9f60f186df8cba267;hb=cf7b66549af1fcd500a2741e5795626b0d809317;hp=06ac61e37e715ef487f959b7172078b4d18eb511;hpb=b234e9d9a6148c8e4879954cb1de7476a437edb6;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/103many_to_many_warning.t b/t/103many_to_many_warning.t
index 06ac61e..36d41a8 100644
--- a/t/103many_to_many_warning.t
+++ b/t/103many_to_many_warning.t
@@ -3,7 +3,6 @@ use warnings;
 use Test::More;
 
 use lib qw(t/lib);
-use Data::Dumper;
 
 plan tests => 4;
 my $exp_warn = qr/The many-to-many relationship 'bars' is trying to create/;
@@ -16,7 +15,7 @@ my $exp_warn = qr/The many-to-many relationship 'bars' is trying to create/;
   ok (! $@, 'Eval code without warnings suppression')
     || diag $@;
 
-  ok (@w, "Warning triggered without DBIC_METHOD_CLOBBER_OK");
+  ok (@w, "Warning triggered without DBIC_OVERWRITE_HELPER_METHODS_OK");
 }
 
 {
@@ -25,12 +24,12 @@ my $exp_warn = qr/The many-to-many relationship 'bars' is trying to create/;
 
   my $code = gen_code ( suffix => 2 );
 
-  local $ENV{DBIC_METHOD_CLOBBER_OK} = 1;
+  local $ENV{DBIC_OVERWRITE_HELPER_METHODS_OK} = 1;
   eval "$code";
   ok (! $@, 'Eval code with warnings suppression')
     || diag $@;
 
-  ok (! @w, "No warning triggered with DBIC_METHOD_CLOBBER_OK");
+  ok (! @w, "No warning triggered with DBIC_OVERWRITE_HELPER_METHODS_OK");
 }
 
 sub gen_code {