diff options
| -rw-r--r-- | Packdrakeng.pm (renamed from packdrakeng.pm) | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/packdrakeng.pm b/Packdrakeng.pm index 1ccb7e6..cad49da 100644 --- a/packdrakeng.pm +++ b/Packdrakeng.pm @@ -597,17 +597,27 @@ sub extract { my ($pack, $dir, @file) = @_; foreach my $f (@file) { my $dest = $dir ? "$dir/$f" : "$f"; - if (exists($pack->{dir}{$f})) { - -d "$dest" || mkpath("$dest") + my ($dir) = $dest =~ m!(.*)/.*!; + if (exists($pack->{dir}{$f})) { + -d $dest || mkpath($dest) or warn "Unable to create dir $dest"; next; } elsif (exists($pack->{'symlink'}{$f})) { - symlink("$dest", $pack->{'symlink'}{$f}) + -d $dir || mkpath($dir) or do { + warn "Unable to create dir $dir"; + }; + symlink($dest, $pack->{'symlink'}{$f}) or warn "Unable to extract symlink $f"; next; } elsif (exists($pack->{files}{$f})) { - sysopen(my $destfh, "$dest", O_CREAT | O_TRUNC | O_WRONLY) - or next; + -d $dir || mkpath($dir) or do { + warn "Unable to create dir $dir"; + }; + sysopen(my $destfh, $dest, O_CREAT | O_TRUNC | O_WRONLY) + or do { + warn "Unable to extract $dest"; + next; + }; my $written = $pack->extract_virtual($destfh, $f); $written == -1 and warn "Unable to extract file $f"; close($destfh); |