Overwrite: Refer to $i_arch_v->[0] twice in plain_overwrite_pseudomerge

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 0dea96c8f1a678ad9c6d223197caa66e57cb2c0c..373854eb9c33134da70d8ac30d4abcdd5c411928 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -2506,7 +2506,7 @@ sub plain_overwrite_pseudomerge ($$$) {
 
     my @tagformats = access_cfg_tagformats();
     my @t_overwr =
-       map { $_->($overwrite_version, access_basedistro) }
+       map { $_->($i_arch_v->[0], access_basedistro) }
        (grep { m/^(?:old|hist)$/ } @tagformats)
        ? \&debiantags : \&debiantag_new;
     my $i_overwr = infopair_lrf_tag_lookup \@t_overwr, "previous version tag";
@@ -2516,7 +2516,7 @@ sub plain_overwrite_pseudomerge ($$$) {
 
     return $head if is_fast_fwd $archive_hash, $head;
 
-    my $m = "Declare fast forward from $overwrite_version";
+    my $m = "Declare fast forward from $i_arch_v->[0]";
 
     my $r = pseudomerge_make_commit
        $clogp, $head, $archive_hash, $i_arch_v,