#6573 Set empty params to '' instead of undef (Jody Belka)

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@153 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/lib/Apache/MVC.pm b/lib/Apache/MVC.pm
index e284b1e54e8df4b03f8aee8878c64fa24959ea5d..21071de5950e5181185ed820bb7e85e86b525772 100644 (file)
--- a/lib/Apache/MVC.pm
+++ b/lib/Apache/MVC.pm
@@ -19,6 +19,9 @@ sub parse_location {
     $self->parse_path;
 
     $self->{params} = { $self->{ar}->content };
+    while (my ($key, $value) = each %{$self->{params}}) {
+      $self->{params}{$key} = '' unless defined $value;
+    }
     $self->{query}  = { $self->{ar}->args };
 }