From 70f7edb8da04fe9d39a77ef4d0a720a154198f6a Mon Sep 17 00:00:00 2001 From: Raphael Hertzog Date: Fri, 23 May 2008 10:48:19 +0200 Subject: [PATCH] dpkg-source (2.0/3.0 (quilt)): improve build messages * scripts/Dpkg/Source/Package/V2.pm (do_build): Display a message when local modifications are stored in a new automatic patch. This messages includes a list of modified files. --- ChangeLog | 7 +++++++ scripts/Dpkg/Source/Package/V2.pm | 5 +++++ 2 files changed, 12 insertions(+) diff --git a/ChangeLog b/ChangeLog index e71a4a46..d469819f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2008-05-23 Raphael Hertzog + + * scripts/Dpkg/Source/Package/V2.pm (do_build): Display a + message when local modifications are stored in a new + automatic patch. This messages includes a list of + modified files. + 2008-05-23 Raphael Hertzog * scripts/Dpkg/Source/Package/V3/quilt.pm: Remove the .diff diff --git a/scripts/Dpkg/Source/Package/V2.pm b/scripts/Dpkg/Source/Package/V2.pm index 7d5a0c08..f3907888 100644 --- a/scripts/Dpkg/Source/Package/V2.pm +++ b/scripts/Dpkg/Source/Package/V2.pm @@ -348,6 +348,11 @@ sub do_build { unlink($tmpdiff) || syserr(_g("cannot remove %s"), $tmpdiff); } else { mkpath(File::Spec->catdir($dir, "debian", "patches")); + info(_g("local changes stored in %s, the modified files are:"), $autopatch); + my $analysis = $diff->analyze($dir); + foreach my $fn (sort keys %{$analysis->{'filepatched'}}) { + print " $fn\n"; + } rename($tmpdiff, $autopatch) || syserr(_g("cannot rename %s to %s"), $tmpdiff, $autopatch); } -- 2.39.5