From: Christian Hansen <chansen@cpan.org>
Date: Sat, 16 Apr 2005 20:46:08 +0000 (+0000)
Subject: Applied regexp patch from Matt S Trout
X-Git-Tag: 5.7099_04~1496
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=2d752b2a8829f424075d4619e9d4edd852adbf46

Applied regexp patch from Matt S Trout
---

diff --git a/lib/Catalyst/Dispatcher.pm b/lib/Catalyst/Dispatcher.pm
index 861d5ef..c0daccd 100644
--- a/lib/Catalyst/Dispatcher.pm
+++ b/lib/Catalyst/Dispatcher.pm
@@ -235,13 +235,7 @@ sub get_action {
             my $name  = $c->actions->{compiled}->[$i]->[0];
             my $regex = $c->actions->{compiled}->[$i]->[1];
 
-            if ( $action =~ $regex ) {
-                my @snippets;
-                for my $i ( 1 .. 9 ) {
-                    no strict 'refs';
-                    last unless ${$i};
-                    push @snippets, ${$i};
-                }
+            if ( my @snippets = ( $action =~ $regex ) ) {
                 return [ [ $c->actions->{regex}->{$name}, $name, \@snippets ] ];
             }
 
diff --git a/t/engine/request/body.t b/t/engine/request/body.t
index 5ffc53d..03e3b03 100644
--- a/t/engine/request/body.t
+++ b/t/engine/request/body.t
@@ -35,5 +35,5 @@ use HTTP::Request::Common;
     is( $creq->method, 'POST', 'Catalyst::Request method' );
     is( $creq->content_type, 'text/plain', 'Catalyst::Request Content-Type' );
     is( $creq->content_length, $request->content_length, 'Catalyst::Request Content-Length' );
-    is( $creq->input, $request->content, 'Catalyst::Request Content' );
+    is( $creq->body, $request->content, 'Catalyst::Request Content' );
 }