X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FWeb%2FDispatch.pm;h=69df55498eb927cbd5c6d93ccd60e0f71ac7afc6;hb=59ccc1e85596c73f96fce832d900fe72a764f230;hp=9c5559f3124b04d1409dcaa4542ebe7d7c5b4854;hpb=494bc0e765eb3875ca306bef9beaefc86192776c;p=catagits%2FWeb-Simple.git

diff --git a/lib/Web/Dispatch.pm b/lib/Web/Dispatch.pm
index 9c5559f..69df554 100644
--- a/lib/Web/Dispatch.pm
+++ b/lib/Web/Dispatch.pm
@@ -33,7 +33,7 @@ sub call {
 
 sub _dispatch {
   my ($self, $env, @match) = @_;
-  while (my $try = shift @match) {
+  while (defined(my $try = shift @match)) {
 
     return $try if ref($try) eq 'ARRAY';
     if (ref($try) eq 'HASH') {