[Bast-commits] r6227 - in DBIx-Class/0.08/trunk: lib/DBIx/Class/Relationship t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-05-12 07:54:37 +0000 (Tue, 12 May 2009)
New Revision: 6227

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/ManyToMany.pm
   DBIx-Class/0.08/trunk/t/103many_to_many_warning.t
Log:
Rename m2m warn disable envvar

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/ManyToMany.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/ManyToMany.pm	2009-05-12 07:42:45 UTC (rev 6226)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/ManyToMany.pm	2009-05-12 07:54:37 UTC (rev 6227)
@@ -29,7 +29,7 @@
 
     for ($add_meth, $remove_meth, $set_meth, $rs_meth) {
       if ( $class->can ($_) ) {
-        carp (<<"EOW") unless $ENV{DBIC_METHOD_CLOBBER_OK};
+        carp (<<"EOW") unless $ENV{DBIC_OVERWRITE_HELPER_METHODS_OK};
 
 ***************************************************************************
 The many-to-many relationship '$meth' is trying to create a utility method
@@ -41,8 +41,8 @@
 relationship, as the functionality of the original method will not be
 accessible anymore.
 
-To disable this warning set the environment variable DBIC_METHOD_CLOBBER_OK
-to a true value
+To disable this warning set to a true value the environment variable
+DBIC_OVERWRITE_HELPER_METHODS_OK
 
 ***************************************************************************
 EOW

Modified: DBIx-Class/0.08/trunk/t/103many_to_many_warning.t
===================================================================
--- DBIx-Class/0.08/trunk/t/103many_to_many_warning.t	2009-05-12 07:42:45 UTC (rev 6226)
+++ DBIx-Class/0.08/trunk/t/103many_to_many_warning.t	2009-05-12 07:54:37 UTC (rev 6227)
@@ -16,7 +16,7 @@
   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 +25,12 @@
 
   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 {