[Catalyst-commits] r7817 - / Catalyst-Devel/1.00/trunk/lib/Catalyst

zarquon at dev.catalyst.perl.org zarquon at dev.catalyst.perl.org
Tue May 27 13:01:28 BST 2008


Author: zarquon
Date: 2008-05-27 13:01:28 +0100 (Tue, 27 May 2008)
New Revision: 7817

Modified:
   /
   Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm
Log:
 r13291 at zaphod:  kd | 2008-05-27 21:37:45 +1000
 fixing some style in the helper



Property changes on: 
___________________________________________________________________
Name: svk:merge
   - 1b129c88-ebf4-0310-add9-f09427935aba:/local/catalyst:4278
1c72fc7c-9ce4-42af-bf25-3bfe470ff1e8:/local/Catalyst:13267
3b9770f9-e80c-0410-a7de-cd203d167417:/local/catalyst:3514
dd8ad9ea-0304-0410-a433-df5f223e7bc0:/local/Catalyst:6909
   + 1b129c88-ebf4-0310-add9-f09427935aba:/local/catalyst:4278
1c72fc7c-9ce4-42af-bf25-3bfe470ff1e8:/local/Catalyst:13291
3b9770f9-e80c-0410-a7de-cd203d167417:/local/catalyst:3514
dd8ad9ea-0304-0410-a433-df5f223e7bc0:/local/Catalyst:6909

Modified: Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm
===================================================================
--- Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm	2008-05-27 11:52:44 UTC (rev 7816)
+++ Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm	2008-05-27 12:01:28 UTC (rev 7817)
@@ -693,14 +693,14 @@
 
 =cut
 
-sub index : Path Args(0) {
+sub index :Path :Args(0) {
     my ( $self, $c ) = @_;
 
     # Hello World
     $c->response->body( $c->welcome_message );
 }
 
-sub default : Path {
+sub default :Path {
     my ( $self, $c ) = @_;
     $c->response->body( 'Page not found' );
     $c->response->status(404);




More information about the Catalyst-commits mailing list