[Catalyst-commits] r8459 - Catalyst-Runtime/5.80/trunk/lib/Catalyst
andyg at dev.catalyst.perl.org
andyg at dev.catalyst.perl.org
Sun Sep 28 14:12:39 BST 2008
Author: andyg
Date: 2008-09-28 14:12:38 +0100 (Sun, 28 Sep 2008)
New Revision: 8459
Modified:
Catalyst-Runtime/5.80/trunk/lib/Catalyst/Dispatcher.pm
Log:
Silence warning if no req->match
Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Dispatcher.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Dispatcher.pm 2008-09-27 18:14:26 UTC (rev 8458)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Dispatcher.pm 2008-09-28 13:12:38 UTC (rev 8459)
@@ -357,7 +357,7 @@
s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg for grep { defined } @{$req->captures||[]};
$c->log->debug( 'Path is "' . $req->match . '"' )
- if ( $c->debug && length $req->match );
+ if ( $c->debug && defined $req->match && length $req->match );
$c->log->debug( 'Arguments are "' . join( '/', @args ) . '"' )
if ( $c->debug && @args );
More information about the Catalyst-commits
mailing list