* Fix for extracting control files from debs on systems w/o dpkg-deb.

Don't try to extract "file", just "./file".
This commit is contained in:
joey
2002-06-12 17:37:36 +00:00
parent c77168987c
commit 15b992c58f
2 changed files with 9 additions and 4 deletions

View File

@@ -136,12 +136,10 @@ sub getcontrolfile {
return "(mkdir /tmp/tar_out.$$ &&".
" cd /tmp/tar_out.$$ &&".
# Have to handle old debs without a leading ./ and
# new ones with it.
" tar xf - $file ./$file &&".
" tar xf - ./$file &&".
" cat $file; cd /; rm -rf /tmp/tar_out.$$)";
}
my $getcontrol = "ar -p $file control.tar.gz | gzip -dc | ".tar_out($controlfile)." 2>/dev/null";
my $getcontrol = "ar -p $file control.tar.gz | gzip -dc | ".tar_out($controlfile);
return `$getcontrol`
}
}