diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-01-13 21:44:47 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-01-13 21:44:47 +0000 |
| commit | 949c04aee626cdc911dc3af16ce8746375a07533 (patch) | |
| tree | 6037beb0c98df41dffea85522bc2ef65b77ba52d /Porting/checkAUTHORS.pl | |
| parent | 4cb09e0a8a1169d65b9839bce3178d5bddd79127 (diff) | |
| download | perl-949c04aee626cdc911dc3af16ce8746375a07533.tar.gz | |
checkAUTHORS.pl --rank would loop infinitely on an empty results array.
p4raw-id: //depot/perl@26838
Diffstat (limited to 'Porting/checkAUTHORS.pl')
| -rw-r--r-- | Porting/checkAUTHORS.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl index 03cb362e37..be58ea2bee 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"); |