diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2017-04-28 20:34:50 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-06-16 12:25:49 +0100 |
commit | c45f0c5ad270b47d54ce07c5a9f4ed5fb57d5083 (patch) | |
tree | 620e8b086a7ae4316f6f9e4843153ea175d4903d | |
parent | 3a138686f34b4f85f31e5c339d544d12e6479a32 (diff) |
git-debrebase: git-debrebase fixes
-rwxr-xr-x | git-debrebase | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/git-debrebase b/git-debrebase index 1b77b08..428f9e6 100755 --- a/git-debrebase +++ b/git-debrebase @@ -393,13 +393,13 @@ sub walk { if ($differs & D_UPS) { printf $report " D_UPS" if $report; push @deb_cl, { - %r, + %$cl, SpecialMethod => 'DgitImportUpstreamUpdate', $xmsg->("convert dgit import: debian changes") }; } push @deb_cl, { - %r, + %$cl, SpecialMethod => 'DgitImportDebianUpdate', $xmsg->("convert dgit import: upstream changes") }; @@ -459,9 +459,9 @@ sub walk { $current_method = $cl; next; } - $method = $cl->{SpecialMethod} // $current_method; + my $method = $cl->{SpecialMethod} // $current_method; my @parents = ($build); - my $cltree = $cl->{CommitId} + my $cltree = $cl->{CommitId}; if ($method eq 'Debian') { $read_tree_debian->($cltree); } elsif ($method eq 'Upstream') { @@ -475,7 +475,7 @@ sub walk { next; } elsif ($method eq 'DgitImportDebianUpdate') { $read_tree_debian->($cltree); - $rm_tree_cached(qw(debian/patches)); + $rm_tree_cached->(qw(debian/patches)); } elsif ($method eq 'DgitImportUpstreamUpdate') { $read_tree_upstream->($cltree); push @parents, map { $_->{CommitId} } @{ $cl->{OrigParents} }; |