}
sub quiltify ($$$) {
- my ($clogp,$target,$origtree) = @_;
+ my ($clogp,$target,$unapplied) = @_;
# Quilt patchification algorithm
#
rmtree '.pc';
runcmd @git, qw(add -Af .);
- my $origtree=git_write_tree();
-
- printdebug "fake orig tree object $origtree\n";
+ my $unapplied=git_write_tree();
+ printdebug "fake orig tree object $unapplied\n";
ensuredir '.pc';
rename '../fake/.pc','.pc' or die $!;
}
- quiltify($clogp,$headref,$origtree);
+ quiltify($clogp,$headref,$unapplied);
if (!open P, '>>', ".pc/applied-patches") {
$!==&ENOENT or die $!;