[Catalyst-commits] r9375 - Catalyst-Runtime/5.80/trunk/lib

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-02-20 17:25:38 +0000 (Fri, 20 Feb 2009)
New Revision: 9375

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
Log:
Unbreak disabling of NEXT warnings on non-dev releases.

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-02-20 16:59:06 UTC (rev 9374)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-02-20 17:25:38 UTC (rev 9375)
@@ -77,6 +77,12 @@
 # Remember to update this in Catalyst::Runtime as well!
 
 our $VERSION = '5.8000_06';
+
+{
+    my $dev_version = $VERSION =~ /_\d{2}$/;
+    *_IS_DEVELOPMENT_VERSION = sub () { $dev_version };
+}
+
 $VERSION = eval $VERSION;
 
 sub import {
@@ -90,7 +96,7 @@
     return if $caller eq 'main';
 
     # Kill Adopt::NEXT warnings if we're a non-RC version
-    if ($VERSION !~ /_\d{2}$/) {
+    unless (_IS_DEVELOPMENT_VERSION()) {
         Class::C3::Adopt::NEXT->unimport(qr/^Catalyst::/);
     }