X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;h=53183edded8dd3bc52b9fd3a4bbe4af50f04bdaf;hp=5d6635df454c799c9bf6b3e5661dcfee7137cdd6;hb=HEAD;hpb=ee2ddf0c434642c62ecaa80da046601ec9c31101 diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index 5d6635d..de488a4 100644 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -53,6 +53,9 @@ use Class::Load 'load_class'; use Encode 2.21 'decode_utf8', 'encode_utf8'; use Scalar::Util; +our $VERSION = '5.90128'; +$VERSION =~ tr/_//d; + BEGIN { require 5.008003; } has stack => (is => 'ro', default => sub { [] }); @@ -206,10 +209,6 @@ sub composed_stats_class { __PACKAGE__->_encode_check(Encode::FB_CROAK | Encode::LEAVE_SRC); -# Remember to update this in Catalyst::Runtime as well! -our $VERSION = '5.90125'; -$VERSION = eval $VERSION if $VERSION =~ /_/; # numify for warning-free dev releases - sub import { my ( $class, @arguments ) = @_; @@ -1644,7 +1643,7 @@ sub uri_for { my $num_captures = $expanded_action->number_of_captures; # ->uri_for( $action, \@captures_and_args, \%query_values? ) - if( !@args && $action->number_of_args ) { + if( !@args && $action->number_of_args && @$captures > $num_captures ) { unshift @args, splice @$captures, $num_captures; }