[Bast-commits] r6707 - DBIx-Class/0.08/trunk/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-06-18 12:05:42 +0000 (Thu, 18 Jun 2009)
New Revision: 6707

Modified:
   DBIx-Class/0.08/trunk/t/93storage_replication.t
Log:
wtf

Modified: DBIx-Class/0.08/trunk/t/93storage_replication.t
===================================================================
--- DBIx-Class/0.08/trunk/t/93storage_replication.t	2009-06-18 10:43:36 UTC (rev 6706)
+++ DBIx-Class/0.08/trunk/t/93storage_replication.t	2009-06-18 12:05:42 UTC (rev 6707)
@@ -361,11 +361,8 @@
 
 ## Check that master_read_weight is honored
 {
-    no warnings 'once';
+    no warnings qw/once redefine/;
 
-    # turn off redefined warning
-    local $SIG{__WARN__} = sub {};
-
     local
     *DBIx::Class::Storage::DBI::Replicated::Balancer::Random::_random_number =
 	sub { 999 };