X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Porting%2Fmanicheck;h=251c7ee5bfd2954617cca9af04e915ca4830f332;hb=9c2a5cfebcaca6cb620772a695fd0f59629bfdf5;hp=e2a33ec678aecc718d40e059d0572ae8949c4137;hpb=6501254efd518ae7cec2505f294d8200779717b9;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/Porting/manicheck b/Porting/manicheck
index e2a33ec..251c7ee 100644
--- a/Porting/manicheck
+++ b/Porting/manicheck
@@ -22,14 +22,15 @@ use strict;
 
 sub help {
   die <<EOF;
-$0: Usage: $0 [-x|-m|-h]
+$0: Usage: $0 [-x|-m|-l|-h]
 -x show only the extra files
 -m show only the missing files
+-l show the files one per line instead of one line
 -h show only this help
 EOF
 }
 
-use vars qw($x $m $h);
+use vars qw($x $m $l $h);
 
 help() if $h;
 
@@ -73,8 +74,13 @@ for (sort keys %mani) {
   push @miss, $_ unless $find{$_};
 }
 
-printf("%s@xtra\n", $x || $m ? "" : "extra: ")   if @xtra && !$m;
-printf("%s@miss\n", $x || $m ? "" : "missing: ") if @miss && !$x;
+$" = "\n" if $l;
+
+unshift @xtra, "extra:"   if @xtra && !$x;
+unshift @miss, "missing:" if @miss && !$m;
+
+print "@xtra\n", if @xtra && !$m;
+print "@miss\n"  if @miss && !$x;
 
 exit 0;