From: Simon Cozens <simon@simon-cozens.org>
Date: Mon, 21 Jun 2004 13:29:11 +0000 (+0000)
Subject: #6573 Set empty params to '' instead of undef (Jody Belka)
X-Git-Tag: 2.10~209
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=23a99cfd4af079b968c4a32a8d7c02cc5a525d3d;p=maypole.git

#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 e284b1e..21071de 100644
--- 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 };
 }