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

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-11-22 19:42:30 +0000 (Sun, 22 Nov 2009)
New Revision: 11968

Modified:
   Catalyst-Runtime/5.80/trunk/t/deprecated.t
Log:
Different phrasing for different versions

Modified: Catalyst-Runtime/5.80/trunk/t/deprecated.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/deprecated.t	2009-11-22 13:08:47 UTC (rev 11967)
+++ Catalyst-Runtime/5.80/trunk/t/deprecated.t	2009-11-22 19:42:30 UTC (rev 11968)
@@ -9,7 +9,10 @@
 my $warnings;
 BEGIN { # Do this at compile time in case we generate a warning when use
         # DeprecatedTestApp
-    $SIG{__WARN__} = sub { $warnings++ if $_[0] =~ /trying to use NEXT/ };
+    $SIG{__WARN__} = sub {
+        $warnings++ if $_[0] =~ /uses NEXT, which is deprecated/;
+        $warnings++ if $_[0} =~ /trying to use NEXT, which is deprecated/;
+    };
 }
 use Catalyst; # Cause catalyst to be used so I can fiddle with the logging.
 my $mvc_warnings;