From: "Robin Barker" <Robin.Barker@npl.co.uk>
Robin Barker [Thu, 10 Jan 2008 18:48:04 +0000 (18:48 +0000)]
Message-ID: <46A0F33545E63740BC7563DE59CA9C6D0939C2@exchsvr2.npl.ad.local>

p4raw-id: //depot/perl@32946

Porting/manicheck

index 9ba8360..251c7ee 100644 (file)
@@ -76,8 +76,8 @@ for (sort keys %mani) {
 
 $" = "\n" if $l;
 
-unshift @xtra, "extra:"   if @xtra;
-unshift @miss, "missing:" if @miss;
+unshift @xtra, "extra:"   if @xtra && !$x;
+unshift @miss, "missing:" if @miss && !$m;
 
 print "@xtra\n", if @xtra && !$m;
 print "@miss\n"  if @miss && !$x;