some form feeds in the check_* output.

git-svn-id: svn://tug.org/texlive/trunk@14052 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 10 insertions, 10 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index c5d9e3b1d78..2a1c09ce5c5 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -2536,7 +2536,7 @@ sub check_files {
   }
   if ($#multiple >= 0) {
     $ret = 1;
-    print "Multiple included files (relative to $Master):\n";
+    print "\f Multiple included files (relative to $Master):\n";
     for (sort @multiple) {
       my @foo = @{$filetopacks{$_}};
       print "  $_ (@foo)\n";
@@ -2545,7 +2545,7 @@ sub check_files {
   }
   if ($#missing >= 0) {
     $ret = 1;
-    print "Files mentioned in tlpdb but missing (relative to $Master):\n";
+    print "\f Files mentioned in tlpdb but missing (relative to $Master):\n";
     for my $m (@missing) {
       print "\t$m\n";
     }
@@ -2600,7 +2600,7 @@ sub check_files {
   }
   if (@nohit) {
     $ret = 1;
-    print "Files present but not covered (relative to $Master):\n";
+    print "\f Files present but not covered (relative to $Master):\n";
     for my $f (sort @nohit) {
       print "  $f\n";
     }
@@ -2738,7 +2738,7 @@ sub check_executes {
     }
   }
   if (keys %badhyphcodes) {
-    print "mentioned hyphen loaders without file:\n";
+    print "\f mentioned hyphen loaders without file:\n";
     foreach my $mf (keys %badhyphcodes) {
       print "\t$mf (execute in @{$badhyphcodes{$mf}})\n";
     }
@@ -2797,19 +2797,19 @@ sub check_executes {
     }
   }
   if (keys %missinginis) {
-    print "mentioned ini files that cannot be found:\n";
+    print "\f mentioned ini files that cannot be found:\n";
     for my $i (keys %missinginis) {
       print "\t $missinginis{$i} (execute: $i)\n";
     }
   }
   if (keys %missingengines) {
-    print "mentioned engine files that cannot be found:\n";
+    print "\f mentioned engine files that cannot be found:\n";
     for my $i (keys %missingengines) {
       print "\t @{$missingengines{$i}}\n";
     }
   }
   if (keys %missingbins) {
-    print "mentioned bin files that cannot be found:\n";
+    print "\f mentioned bin files that cannot be found:\n";
     for my $i (keys %missingbins) {
       print "\t @{$missingbins{$i}}\n";
     }
@@ -2869,7 +2869,7 @@ sub check_depends {
 
   if (keys %wrong_dep) {
     $ret++;
-    print "DEPENDS WITHOUT PACKAGES:\n";
+    print "\f DEPENDS WITHOUT PACKAGES:\n";
     for my $d (keys %wrong_dep) {
       print "$d occurring in ", @{$wrong_dep{$d}}, "\n";
     }
@@ -2877,10 +2877,10 @@ sub check_depends {
 
   if (@no_dep) {
     $ret++;
-    print "PACKAGES NOT IN ANY COLLECTION: @no_dep\n";
+    print "\f PACKAGES NOT IN ANY COLLECTION: @no_dep\n";
   }
  
-  return($ret); 
+  return $ret; 
 }