Mark branches that have whitespace problems

1 files changed, 15 insertions, 1 deletions

diff --git a/page b/page
index 7b375f2b59..ee0317ca66 100755
--- a/page
+++ b/page
@@ -62,7 +62,8 @@ foreach (`git log --oneline --first-parent dev..pu`) {
 	my(@revs) = `git rev-list $range`;
 	my $commits = @revs == 1 ? "1 commit" : scalar(@revs) . " commits";
 	my $max = 12;
-	my $apps = `$application $child^1...$child^2`;
+	my $diff_range = "$child^1...$child^2";
+	my $apps = `$application $diff_range`;
 	chomp $apps;
 
 	system "git", "show", "-s", "--date=short",
@@ -76,6 +77,19 @@ foreach (`git log --oneline --first-parent dev..pu`) {
 	print ".\n.\n\.\n" if @revs > $max;
 	print "</ul>\n";
 
+	my @ws = `git diff --check $diff_range`;
+	if (@ws) {
+	    my $n = @ws / 2;
+	    print "<p>\n";
+	    print qq[<font color="red">This topic branch introduces ];
+	    if ($n == 1) {
+		print "1 line ";
+	    } else {
+		print "$n lines ";
+	    }
+	    print "with whitespace errors.</font>\n";
+	}
+
 	my $text = $cooking{$topic};
 	unless (defined $text) {
 	    print "<p><i>New topic branch</i>\n<p>\n";