Please excuse the second post.
I realized that "text" is a better attribute name for this module and changed the code accordingly.
New patch included.
--- c:/perl/site/lib/HTML/Form.pm.org Mon Mar 17 10:35:38 2003
+++ c:/perl/site/lib/HTML/Form.pm Mon Mar 17 15:34:22 2003
@@ -113,7 +113,8 @@
next if $tag eq "/option";
if ($tag eq "option") {
my %a = (%$attr, %{$t->[0]});
- $a{value} = $p->get_trimmed_text
+ $a{text} = $p->get_trimmed_text;
+ $a{value} = $a{text}
unless defined $a{value};
$f->push_input("option", \%a);
} else {