From ee812d68b34c0e43d89551e39ebf5b7d247ac5b6 Mon Sep 17 00:00:00 2001 From: Aaron Trevena Date: Sun, 26 Oct 2008 20:43:57 +0000 Subject: [PATCH] fixed undef warnings git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@595 48953598-375a-da11-a14b-00016c27c3ee --- lib/Maypole/Model/CDBI/AsForm.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Maypole/Model/CDBI/AsForm.pm b/lib/Maypole/Model/CDBI/AsForm.pm index d76ecb4..8a7f06c 100644 --- a/lib/Maypole/Model/CDBI/AsForm.pm +++ b/lib/Maypole/Model/CDBI/AsForm.pm @@ -880,9 +880,9 @@ sub _to_bool_select { unless (defined $selected); my $a = HTML::Element->new("select", name => $col); - if ($args->{column_nullable} || $args->{value} eq '') { + if ($args->{column_nullable} || !defined $args->{value} ) { my $null = HTML::Element->new("option"); - $null->attr('selected', 'selected') if $args->{value} eq ''; + $null->attr('selected', 'selected') if (!defined $args->{value}); $a->push_content( $null ); } -- 2.39.2