[Catalyst-commits] r8674 - Catalyst-Runtime/5.80/trunk/t

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-12-01 21:15:23 +0000 (Mon, 01 Dec 2008)
New Revision: 8674

Modified:
   Catalyst-Runtime/5.80/trunk/t/unit_utils_load_class.t
Log:
Ignore C3 warnings on 5.10 when testing ensure_class_loaded.

Modified: Catalyst-Runtime/5.80/trunk/t/unit_utils_load_class.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/unit_utils_load_class.t	2008-12-01 21:12:09 UTC (rev 8673)
+++ Catalyst-Runtime/5.80/trunk/t/unit_utils_load_class.t	2008-12-01 21:15:23 UTC (rev 8674)
@@ -16,7 +16,10 @@
 }
 
 my $warnings = 0;
-$SIG{__WARN__} = sub { $warnings++ };
+$SIG{__WARN__} = sub {
+    return if $_[0] =~ /Subroutine (?:un|re|)initialize redefined at .*C3\.pm/;
+    $warnings++;
+};
 
 ok( !Class::MOP::is_class_loaded("TestApp::View::Dump"), "component not yet loaded" );