avoid warning

[catagits/HTML-Zoom.git] / lib / HTML / Zoom / FilterBuilder.pm

diff --git a/lib/HTML/Zoom/FilterBuilder.pm b/lib/HTML/Zoom/FilterBuilder.pm
index 3baf494..0465de0 100644 (file)
--- a/lib/HTML/Zoom/FilterBuilder.pm
+++ b/lib/HTML/Zoom/FilterBuilder.pm
@@ -425,7 +425,7 @@ sub val {
         push @{$evt->{'attr_names'}}, 'value' unless exists $attrs->{'value'};
         $attrs->{'value'} = $tar;
         #check if we are a checkbox
-        if($attrs->{'type'} eq 'checkbox') {
+        if(exists $attrs->{'type'} && $attrs->{'type'} eq 'checkbox') {
           if($tar) {
             push @{$evt->{'attr_names'}}, 'selected' unless exists $attrs->{'selected'};
             $attrs->{'selected'} = $tar ? 'selected' : '';