From: Heikki Linnakangas <heikki.linnakangas@iki.fi>
Date: Mon, 13 Feb 2012 07:15:08 +0000 (+0200)
Subject: Silence warning about deprecated assignment to $[ in check_keywords.pl
X-Git-Tag: REL9_2_BETA1~434
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=b4e3633ac42ed7af21bce611234ccbf820098644;p=postgresql

Silence warning about deprecated assignment to $[ in check_keywords.pl

Alex Hunsaker
---

diff --git a/src/tools/check_keywords.pl b/src/tools/check_keywords.pl
index 3b68638614..1787754840 100755
--- a/src/tools/check_keywords.pl
+++ b/src/tools/check_keywords.pl
@@ -16,7 +16,6 @@ if (@ARGV) {
 	$path = ".";
 }
 
-$[ = 1;			# set array base to 1
 $, = ' ';		# set output field separator
 $\ = "\n";		# set output record separator
 
@@ -60,7 +59,7 @@ line: while (<GRAM>) {
     $n = (@arr = split(' ', $S));
 
     # Ok, we're in a keyword list. Go through each field in turn
-    for (my $fieldIndexer = 1; $fieldIndexer <= $n; $fieldIndexer++) {
+    for (my $fieldIndexer = 0; $fieldIndexer < $n; $fieldIndexer++) {
 	if ($arr[$fieldIndexer] eq '*/' && $comment) {
 	    $comment = 0;
 	    next;