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 (file)
--- 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");