exportSession must be closed _before_ it throws.
This commit is contained in:
parent
9f1da1f4c5
commit
47bdf5a7b5
1 changed files with 1 additions and 1 deletions
|
|
@ -224,8 +224,8 @@ sub exportAssetCollateral {
|
||||||
# next, get the contents, open the file, and write the contents to the file.
|
# next, get the contents, open the file, and write the contents to the file.
|
||||||
my $fh = eval { $dest->open('>:utf8') };
|
my $fh = eval { $dest->open('>:utf8') };
|
||||||
if($@) {
|
if($@) {
|
||||||
WebGUI::Error->throw(error => "can't open " . $dest->absolute->stringify . " for writing: $!");
|
|
||||||
$exportSession->close;
|
$exportSession->close;
|
||||||
|
WebGUI::Error->throw(error => "can't open " . $dest->absolute->stringify . " for writing: $!");
|
||||||
}
|
}
|
||||||
$exportSession->asset($selfdupe);
|
$exportSession->asset($selfdupe);
|
||||||
$exportSession->output->setHandle($fh);
|
$exportSession->output->setHandle($fh);
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue