git.shiar.nl
/
perl
/
html-form-simple.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
XXX: radio default
[perl/html-form-simple.git]
/
lib
/
HTML
/
Form
/
Simple.pm
diff --git
a/lib/HTML/Form/Simple.pm
b/lib/HTML/Form/Simple.pm
index 18be571a0f04b3bbe6cbff2e873779256454b55a..440f4042f607104e815ec86dd0e7678e5b8bcaf5 100644
(file)
--- a/
lib/HTML/Form/Simple.pm
+++ b/
lib/HTML/Form/Simple.pm
@@
-171,7
+171,7
@@
sub select {
sub radio {
my $self = shift;
sub radio {
my $self = shift;
- my ($name, $rows, $label, $
attr) = $self->_attr(3
, @_);
+ my ($name, $rows, $label, $
default, $attr) = $self->_attr(4
, @_);
if (not defined $rows) {
if (defined $label) {
if (not defined $rows) {
if (defined $label) {
@@
-194,7
+194,7
@@
sub radio {
}
}
}
}
- $self->select($name, $rows, {%$attr, type => 'radio'});
+ $self->select($name, $rows,
$default,
{%$attr, type => 'radio'});
}
sub check {
}
sub check {