When quilt linearisation fails, print the right information in the error message...

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 916177c3cd0ed895c727abfe9dc585c6950dfe3e..7c76a6f5473f6fc97b3fa1b0e1de902c9653faa6 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -2627,7 +2627,7 @@ sub quiltify ($$) {
        my $abbrev = sub {
            my $x = $_[0]{Commit};
            $x =~ s/(.*?[0-9a-z]{8})[0-9a-z]*$/$1/;
-           return $;
+           return $x;
        };
        my $reportnot = sub {
            my ($notp) = @_;