Merge pull request #1 from dbcooper/master

Wrap a label around <radio> elements
perlpilot · Dec 16, 2011 · 2a331ab · 2a331ab
2 parents 18b1e68 + c924246
commit 2a331ab
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/HTML/FormHelpers.pm b/lib/HTML/FormHelpers.pm
@@ -99,7 +99,7 @@ sub radio {
     while ($i < @$values) { 
         my ($val,$disp) = @{$values}[$i, $i+1];
         my $checked = $on eq $val ? 'checked="checked"' : "";
-        push @ret, qq(<input type="radio" name="$fname" value="$val" $checked $attributes />$disp);
+        push @ret, qq(<label><input type="radio" name="$fname" value="$val" $checked $attributes />$disp</label>);
     } continue { $i+=2 }
     return ref $sep eq 'ARRAY' ? @ret : join $sep,@ret;
 }