diff options
| -rw-r--r-- | Packdrakeng.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Packdrakeng.pm b/Packdrakeng.pm index 0eaa6ed..d2427b9 100644 --- a/Packdrakeng.pm +++ b/Packdrakeng.pm @@ -160,7 +160,8 @@ sub DESTROY { my ($pack) = @_; $pack->{subuncompress}($pack, undef, undef); $pack->build_toc(); - close($pack->{handle}) if ($pack->{handle}); + close($pack->{handle}) if $pack->{handle}; + close($pack->{ustream_data}{handle}) if $pack->{ustream_data}{handle}; } # Flush current compressed block |