From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 13 Jan 2006 21:44:47 +0000 (+0000)
Subject: checkAUTHORS.pl --rank would loop infinitely on an empty results array.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=949c04aee626cdc911dc3af16ce8746375a07533;p=p5sagit%2Fp5-mst-13.2.git

checkAUTHORS.pl --rank would loop infinitely on an empty results array.

p4raw-id: //depot/perl@26838
---

diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl
index 03cb362..be58ea2 100644
--- a/Porting/checkAUTHORS.pl
+++ b/Porting/checkAUTHORS.pl
@@ -221,6 +221,7 @@ sub display_ordered {
   }
 
   my $i = @sorted;
+  return unless $i;
   while (--$i) {
     next unless $sorted[$i];
     print wrap ("$i:\t", "\t", join (" ", sort @{$sorted[$i]}), "\n");