From 8b68789b3543661a4f43418ae6452c0e14efc248 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 2 Jul 2009 00:30:31 +0000 Subject: some form feeds in the check_* output. git-svn-id: svn://tug.org/texlive/trunk@14052 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgr.pl | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'Master/texmf') 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; } -- cgit v1.2.3