Fix indentation code, simplify a bit

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@5379 91177308-0d34-0410-b5e6-96231b3b80d8

1 files changed, 11 insertions, 10 deletions

diff --git a/utils/NightlyTest.pl b/utils/NightlyTest.pl
index 1c2edd6fd1..f3170b9743 100755
--- a/utils/NightlyTest.pl
+++ b/utils/NightlyTest.pl
@@ -34,7 +34,7 @@ sub GetRegex {   # (Regex with ()'s, value)
 
 sub AddPreTag {  # Add pre tags around nonempty list, or convert to "none"
   $_ = shift;
-  if (length) { return "<pre>  $_</pre>"; } else { "<b>none</b><br>"; }
+  if (length) { return "<ul><pre>$_</pre></ul>"; } else { "<b>none</b><br>"; }
 }
 
 sub GetDir {
@@ -59,8 +59,8 @@ sub DiffFiles {
   my @Diffs = split "\n", `diff $WebDir/$DATE$Suffix $WebDir/$Others[0]`;
   my $Added   = join "\n", grep /^</, @Diffs;
   my $Removed = join "\n", grep /^>/, @Diffs;
-  $Added =~ s/^< /  /gm;
-  $Removed =~ s/^> /  /gm;
+  $Added =~ s/^< //gm;
+  $Removed =~ s/^> //gm;
   return ($Added, $Removed);
 }
 
@@ -165,8 +165,9 @@ foreach $Warning (@Warn) {
     push @Warnings, "$CurDir/$Warning";     # Add directory to warning...
   }
 }
-my $WarningsList = AddPreTag join "\n  ", @Warnings;
-my $WarningsFile = join "\n", @Warnings; $WarningsFile =~ s/:[0-9]+:/::/g;
+my $WarningsFile =  join "\n", @Warnings;
+my $WarningsList = AddPreTag $WarningsFile;
+$WarningsFile =~ s/:[0-9]+:/::/g;
 
 # Emit the warnings file, so we can diff...
 WriteFile "$WebDir/$DATE-Warnings.txt", $WarningsFile . "\n";
@@ -207,11 +208,11 @@ foreach $File (@CVSHistory) {
   }
 }
 
-my $UserCommitList = join "\n  ", keys %UsersCommitted;
-my $UserUpdateList = join "\n  ", keys %UsersUpdated;
-my $AddedFilesList = AddPreTag join "\n  ", keys %AddedFiles;
-my $ModifiedFilesList = AddPreTag join "\n  ", keys %ModifiedFiles;
-my $RemovedFilesList = AddPreTag join "\n  ", keys %RemovedFiles;
+my $UserCommitList = join "\n", keys %UsersCommitted;
+my $UserUpdateList = join "\n", keys %UsersUpdated;
+my $AddedFilesList = AddPreTag join "\n", keys %AddedFiles;
+my $ModifiedFilesList = AddPreTag join "\n", keys %ModifiedFiles;
+my $RemovedFilesList = AddPreTag join "\n", keys %RemovedFiles;
 
 # Get a list of the previous days that we can link to...
 my @PrevDays = map {s/.html//; $_} GetDir ".html";