diff options
author | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-02-27 20:50:52 +0000 |
---|---|---|
committer | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-02-27 20:50:52 +0000 |
commit | 6a21690e1a46845437b034eb10da0528bcdc1140 (patch) | |
tree | 7853fd5263eb209fb07555f4017e73b29fc46d51 /lib/Reaction/UI/ViewPort/Field | |
parent | 384a99858802ee0569ba621c2162c15501c8e94e (diff) | |
download | reaction-6a21690e1a46845437b034eb10da0528bcdc1140.tar.gz reaction-6a21690e1a46845437b034eb10da0528bcdc1140.zip |
fix value checking for non-object choices
Diffstat (limited to 'lib/Reaction/UI/ViewPort/Field')
-rw-r--r-- | lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm b/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm index 9033528..f6b679a 100644 --- a/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm +++ b/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm @@ -37,7 +37,7 @@ class ChooseOne is 'Reaction::UI::ViewPort::Field', which { my ($self, $check_value) = @_; return unless $self->_model_has_value; my $our_value = $self->value; - return unless ref($our_value); + return unless defined($our_value); $check_value = $self->obj_to_str($check_value) if ref($check_value); return $self->obj_to_str($our_value) eq $check_value; }; |