X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst.pm;h=e8d30eb0c11e188226164c9e780fb68ddc60d1ac;hb=b1860d6c8cb5b00007c6f48410fd4d2616630b27;hp=f990429b4554898780319a500fea74067da8f7b3;hpb=cce626ed4c3e5c6f85da61cf596d763607fb2480;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index f990429..e8d30eb 100644 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -77,6 +77,12 @@ __PACKAGE__->stats_class('Catalyst::Stats'); # 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 @@ sub import { 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::/); } @@ -897,7 +903,7 @@ sub plugin { my ( $class, $name, $plugin, @args ) = @_; # See block comment in t/unit_core_plugin.t - $class->log->debug(qq/Adding plugin using the ->plugin method is deprecated, and will be removed in Catalyst 5.9/); + $class->log->warn(qq/Adding plugin using the ->plugin method is deprecated, and will be removed in Catalyst 5.9/); $class->_register_plugin( $plugin, 1 ); @@ -2589,6 +2595,8 @@ dkubb: Dan Kubb Drew Taylor +dwc: Daniel Westermann-Clark + esskar: Sascha Kiefer fireartist: Carl Franks