full patch support (untested)

This commit is contained in:
joey
2000-04-22 04:52:41 +00:00
parent 422923094e
commit f79b8473da
2 changed files with 12 additions and 2 deletions

1
TODO
View File

@@ -1,3 +1,2 @@
* handling postinst script when converting to/from .slp packages. * handling postinst script when converting to/from .slp packages.
* patches

13
alien
View File

@@ -359,12 +359,23 @@ foreach my $file (@ARGV) {
# Mutate package into desired format. # Mutate package into desired format.
bless($package, "Alien::Package::".ucfirst($format)); bless($package, "Alien::Package::".ucfirst($format));
# Make .orig.tar.gz directory?
if ($format eq 'deb' && ! $single && $generate) { if ($format eq 'deb' && ! $single && $generate) {
# Make .orig.tar.gz directory. # Make .orig.tar.gz directory.
system("cp -fa ".$package->unpacked_tree." ".$package->unpacked_tree.".orig") && system("cp -fa ".$package->unpacked_tree." ".$package->unpacked_tree.".orig") &&
die "cp -fa failed"; die "cp -fa failed";
} }
# See if a patch file should be used.
if ($format eq 'deb' && ! $nopatch) {
if (defined $patchfile) {
$package->patchfile($patchfile)
}
else {
$package->patchfile($package->getpatch);
}
}
$package->prep; $package->prep;
# If generating build tree only, stop here with message. # If generating build tree only, stop here with message.