From: Sebastian Riedel <sri@labs.kraih.com>
Date: Mon, 16 May 2005 18:27:26 +0000 (+0000)
Subject: Fixed the multiple cat apps on same mod_perl problem
X-Git-Tag: 5.7099_04~1388
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=12e2816523c154b30f6bca1096502dd8a3544e8e;hp=b33ed88cc550c3140a9a4692c738178bfc47f069

Fixed the multiple cat apps on same mod_perl problem
---

diff --git a/lib/Catalyst/Dispatcher.pm b/lib/Catalyst/Dispatcher.pm
index e8e3797..cb916a0 100644
--- a/lib/Catalyst/Dispatcher.pm
+++ b/lib/Catalyst/Dispatcher.pm
@@ -9,14 +9,6 @@ use Tree::Simple::Visitor::FindByPath;
 
 __PACKAGE__->mk_classdata($_) for qw/actions tree/;
 
-# These are the core structures
-__PACKAGE__->actions(
-    { plain => {}, private => {}, regex => {}, compiled => [], reverse => {} }
-);
-
-# We use a tree
-__PACKAGE__->tree( Tree::Simple->new( 0, Tree::Simple->ROOT ) );
-
 =head1 NAME
 
 Catalyst::Dispatcher - The Catalyst Dispatcher
@@ -356,6 +348,20 @@ Setup actions for a component.
 sub setup_actions {
     my ( $self, $comps ) = @_;
 
+    # These are the core structures
+    $self->actions(
+        {
+            plain    => {},
+            private  => {},
+            regex    => {},
+            compiled => [],
+            reverse  => {}
+        }
+    );
+
+    # We use a tree
+    $self->tree( Tree::Simple->new( 0, Tree::Simple->ROOT ) );
+
     for my $comp (@$comps) {
         $comp = ref $comp || $comp;