From: Marcus Ramberg <mramberg@cpan.org>
Date: Sun, 24 Apr 2005 23:02:40 +0000 (+0000)
Subject: added: log message
X-Git-Tag: v0.15~26
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Plugin-SubRequest.git;a=commitdiff_plain;h=9252a2940fa078c1e8a895934c0d549dd68d1589

added: log message
---

diff --git a/Changes b/Changes
index c34e0b0..ee302ac 100644
--- 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
--- 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};