@@ -2566,6 +2566,7 @@ sub popup_menu {
my(@values);
@values = $self->_set_values_and_labels($values,\$labels,$name);
$tabindex = $self->element_tab($tabindex);
+ $name = q{} if ! defined $name;
$result = qq/<select name="$name" $tabindex$other>\n/;
for (@values) {
if (/<optgroup/) {
@@ -2626,7 +2627,7 @@ sub optgroup {
@values = $self->_set_values_and_labels($values,\$labels,$name,$labeled,$novals);
my($other) = @other ? " @other" : '';
- $name=$self->_maybe_escapeHTML($name);
+ $name = $self->_maybe_escapeHTML($name) || q{};
$result = qq/<optgroup label="$name"$other>\n/;
for (@values) {
if (/<optgroup/) {
lib/CGI.pm
0d1328b2f3f09ccaf5a7e384b3b5203313f54d0f
burak
burak@cpan.org
http://github.com/burak/CGI.pm/commit/026f923ab8c7ef568435c38a3d3c87d9106d5554
026f923ab8c7ef568435c38a3d3c87d9106d5554
2009-10-13T16:40:41-07:00
2009-10-13T16:40:41-07:00
Suppress uninitialized warnings under -w
6d38ec55bbf10bbc5d3574d71e71db3a90424396
unknown
burak@cpan.org