From: Sebastian Riedel <sri@labs.kraih.com>
Date: Wed, 16 Mar 2005 19:20:39 +0000 (+0000)
Subject: debug message for params
X-Git-Tag: 5.7099_04~1762
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=c85ff64258bd7b27ce1f6ad7a8f6094a1af5e5c6

debug message for params
---

diff --git a/Changes b/Changes
index 3ea0b31..c9a712e 100644
--- a/Changes
+++ b/Changes
@@ -1,9 +1,12 @@
 This file documents the revision history for Perl extension Catalyst.
 
+4.27  Wed Mar 16 20:00:00 2005
+        - debug message for parameters
+
 4.26  Wed Mar 16 10:00:00 2005
         - fixed the weird bug that caused regex actions to fail on every
           second request
-        - somemore debug messages
+        - more debug messages
         - 100% pod coverage.
 
 4.25  Sat Mar 12 18:00:00 2005
diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index a857494..9a629fc 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -7,7 +7,7 @@ use Catalyst::Log;
 
 __PACKAGE__->mk_classdata($_) for qw/_config log/;
 
-our $VERSION = '4.26';
+our $VERSION = '4.27';
 our @ISA;
 
 =head1 NAME
diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm
index 358a940..65cf3ed 100644
--- a/lib/Catalyst/Engine.pm
+++ b/lib/Catalyst/Engine.pm
@@ -481,6 +481,15 @@ sub prepare {
     $c->log->debug(qq/"$method" request for "$path"/) if $c->debug;
     $c->prepare_action;
     $c->prepare_parameters;
+
+    if ( $c->debug && keys %{ $c->req->params } ) {
+        my @params;
+        for my $key ( keys %{ $c->req->params } ) {
+            my $value = $c->req->params->{$key};
+            push @params, "$key=$value";
+        }
+        $c->log->debug( 'Parameters are "' . join( ' ', @params ) . '"' );
+    }
     $c->prepare_uploads;
     return $c;
 }