mlot/alien
1
0
Fork 0
mirror of https://github.com/Project-OSS-Revival/alien.git synced 2026-04-24 14:00:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

fixed tree cleaning

Browse Source
This commit is contained in:
joey
2000-04-21 02:28:52 +00:00
parent e142f96f77
commit 3a137ecdd4
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Alien/Package/Deb.pm
View File

@@ -61,6 +61,7 @@ Using dpkg-deb is a lot more future-proof, but the system may not have it.
sub read_file {
my $this=shift;
$this->SUPER::read_file(@_);
my $file=$this->filename;
# Extract the control file from the deb file.
my @control;
@@ -164,6 +165,7 @@ Implment the unpack method to unpack a deb file.
sub unpack {
my $this=shift;
$this->SUPER::unpack(@_);
my $file=$this->filename;
if ($this->have_dpkg_deb) {
system("dpkg-deb -x $file ".$this->unpacked_tree) &&