[Catalyst-commits] r8459 - Catalyst-Runtime/5.80/trunk/lib/Catalyst

[andyg at dev.catalyst.perl.org]

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 );