MultipartFormData: Fix ->save() on zero-length values
This commit is contained in:
parent
91b2421a84
commit
8096de7497
1 changed files with 1 additions and 1 deletions
|
|
@ -77,7 +77,7 @@ sub syswrite($o, $fh) {
|
||||||
|
|
||||||
sub save($o, $fn) {
|
sub save($o, $fn) {
|
||||||
open my $F, '>', $fn or confess "Error opening '$fn': $!";
|
open my $F, '>', $fn or confess "Error opening '$fn': $!";
|
||||||
$o->syswrite($F) or confess "Error writing to '$fn': $!";
|
defined $o->syswrite($F) or confess "Error writing to '$fn': $!";
|
||||||
}
|
}
|
||||||
|
|
||||||
sub describe($o) {
|
sub describe($o) {
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue