From: Simon Cozens 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 }; }