warnings.pl: Silence perl compiler warnings

warnings.pl was trying to read two beyond the end of an array.

1 files changed, 4 insertions, 4 deletions

diff --git a/warnings.pl b/warnings.pl
index ea6e14414d..e57ed1f513 100644
--- a/warnings.pl
+++ b/warnings.pl
@@ -168,13 +168,13 @@ sub mkRange
 {
     my @a = @_ ;
     my @out = @a ;
-    my $i ;
 
-
-    for ($i = 1 ; $i < @a; ++ $i) {
+    for my $i (1 .. @a - 1) {
       	$out[$i] = ".."
-          if $a[$i] == $a[$i - 1] + 1 && $a[$i] + 1 == $a[$i + 1] ;
+          if $a[$i] == $a[$i - 1] + 1
+             && ($i >= @a  - 1 || $a[$i] + 1 == $a[$i + 1] );
     }
+    $out[-1] = $a[-1] if $out[-1] eq "..";
 
     my $out = join(",",@out);