From 23a99cfd4af079b968c4a32a8d7c02cc5a525d3d Mon Sep 17 00:00:00 2001
From: Simon Cozens <simon@simon-cozens.org>
Date: Mon, 21 Jun 2004 13:29:11 +0000
Subject: [PATCH] #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
---
 lib/Apache/MVC.pm | 3 +++
 1 file changed, 3 insertions(+)

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 };
 }
 
-- 
2.39.5