added: log message

diff --git a/Changes b/Changes
index c34e0b0..ee302ac 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 Revision history for Perl extension Catalyst::Plugin::Static.
 
+0.05  Sat Mar 19 20:27:00 2005
+        - Added a log message in debug mode.
 0.04  Sat Mar 19 20:27:00 2005
         - Updated forward to cat5 style
         - Using Catalyst::Dispatch::dispatch instead of forward.

diff --git a/SubRequest.pm b/SubRequest.pm
index 14263b8..306b0a7 100644 (file)
--- a/SubRequest.pm
+++ b/SubRequest.pm
@@ -46,6 +46,9 @@ sub sub_request {
     $old_req{action}  = $c->req->action;$c->req->action(undef);
     $old_req{path}  = $c->req->path;$c->req->path($path);
     $c->prepare_action();
+    $c->log->debug("Subrequest to $path , action is ". 
+                   $c->req->action )
+      if $c->debug;
     $c->dispatch();
     my $output  = $c->res->output;
     $c->{stash} = $old_req{stash};