Skip to content

Commit 69a7a3d

Browse files
simbabqueoalders
authored andcommitted
allow undef filename when Content header is present
1 parent 3f8c41e commit 69a7a3d

2 files changed

Lines changed: 4 additions & 1 deletion

File tree

Changes

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff 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

911
6.07 2020-02-21 03:50:52Z
1012
- Restore =head1 NAME section to pod for HTML::Form

lib/HTML/Form.pm

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff 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);

0 commit comments

Comments
 (0)