Mailing List Archive

Hello,

package Magic;

use strict;
use Catalyst qw/-Debug/;

our $VERSION = '0.01';

Magic->config(
name => 'Magic',
root => 'C:\Magic/root',
);

Magic->setup;

sub default : Private {
my ( $self, $c ) = @_;
$c->forward( '/trick/default' ); ### Here is the problem
!!!!
}

##

package Magic::C::Trick;

use strict;
use base 'Catalyst::Base';

sub default : Private {
my ( $self, $c ) = @_;
$c->res->output('Congratulations, Magic::C::Trick is on Catalyst!');
}

sub trick : Private {
my ( $self, $c ) = @_;
$c->res->output(__PACKAGE__ . ' : trick');
}

##

C:\Magic\script>perl test.pl /
[Fri Apr 8 23:37:10 2005] [catalyst] [debug] Debug messages enabled
[Fri Apr 8 23:37:11 2005] [catalyst] [debug] Loaded engine
"Catalyst::Engine::T
est"
[Fri Apr 8 23:37:11 2005] [catalyst] [debug] Loaded components
.=----------------------------------------------------------------------
------=.

| Magic::C::Trick
|
'=----------------------------------------------------------------------
------='


[Fri Apr 8 23:37:11 2005] [catalyst] [debug] Loaded private actions
.=-----------------------------+------------------------------+---------
------=.

| Private | Class | Code
|

|=-----------------------------+------------------------------+---------
------=|

| /default | Magic |
CODE(0x1e98580 |

| /trick/trick | Magic::C::Trick |
CODE(0x1eb3728 |

| /trick/default | Magic::C::Trick |
CODE(0x1eae7d4 |

'=-----------------------------+------------------------------+---------
------='


[Fri Apr 8 23:37:11 2005] [catalyst] [info] Magic powered by Catalyst
5.00
[Fri Apr 8 23:37:11 2005] [catalyst] [debug]
**********************************

[Fri Apr 8 23:37:11 2005] [catalyst] [debug] * Request 1 (1.000/s)
[2008]
[Fri Apr 8 23:37:11 2005] [catalyst] [debug]
**********************************

[Fri Apr 8 23:37:11 2005] [catalyst] [debug] "GET" request for "" from
localhos
t(127.0.0.1)
Deep recursion on subroutine "Catalyst::Engine::benchmark" at
C:/Perl/site/lib/C
atalyst/Engine.pm line 199.
Deep recursion on subroutine "Catalyst::Engine::execute" at
C:/Perl/site/lib/Cat
alyst/Engine.pm line 442.
Deep recursion on subroutine "Magic::default" at
C:/Perl/site/lib/Catalyst/Engin
e.pm line 67.
Deep recursion on subroutine "Catalyst::Engine::forward" at
C:/Magic/script/../l
ib/Magic.pm line 17.

Then the program never stop :-)
Even worse if I try the same via the browser: the all PC gets blocked, I
need the ?TaskManager? to kill and get thinks back.

Is it possible to avoid this recursion loop and just exit with an
helpfull error message ?

Note thet the error disappears if I change the ?sub default? in ?package
Magic::C::Trick? from Private to Local.

Thanks,
Jos?.




-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.rawmode.org/pipermail/catalyst/attachments/20050409/3bbe9e92/attachment.htm