File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -5,6 +5,8 @@ Change history for HTML-Form
55 - Allow buttons to not have a value (GH#8) (Felix Ostmann and Julien Fiegehenn)
66 - The legacy API of FileInput fields now correctly supports setting a
77 custom filename (GH#10) (Gil Magno and Julien Fiegehenn)
8+ - Allow undef filename for FileInput if there is a Content header (GH#30)
9+ (Julien Fiegehenn)
810
9116.07 2020-02-21 03:50:52Z
1012 - Restore =head1 NAME section to pod for HTML::Form
Original file line number Diff line number Diff line change @@ -1539,7 +1539,8 @@ sub form_name_value {
15391539 my $filename = $self -> filename;
15401540 my @headers = $self -> headers;
15411541 my $content = $self -> content;
1542- if (defined $content ) {
1542+ my %headers = @headers ;
1543+ if (defined $content || grep m / ^Content$ / , keys %headers ) {
15431544 $filename = $file unless defined $filename ;
15441545 $file = undef ;
15451546 unshift (@headers , " Content" => $content );
You can’t perform that action at this time.
0 commit comments