X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;h=284f1140e0d9701d23948367d2c53908fb78c755;hp=e20a2cf47cf46fe11fd607e438b5493064739ebc;hb=cbb931057eb985308705c7b29aca87600b99ecd4;hpb=c7ded7aaf69e506924a5406349fd665c7717acb8

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index e20a2cf..284f114 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -931,6 +931,7 @@ sub uri_for {
     my $params =
       ( scalar @args && ref $args[$#args] eq 'HASH' ? pop @args : {} );
 
+    carp "uri_for called with undef argument" if grep { ! defined $_ } @args;
     s/([^$URI::uric])/$URI::Escape::escapes{$1}/go for @args;
 
     unshift(@args, $path);