diff options
| author | Heikki Linnakangas <heikki.linnakangas@iki.fi> | 2012-02-13 09:15:08 +0200 |
|---|---|---|
| committer | Heikki Linnakangas <heikki.linnakangas@iki.fi> | 2012-02-13 09:15:08 +0200 |
| commit | b4e3633ac42ed7af21bce611234ccbf820098644 (patch) | |
| tree | 490202344500ada76550f50bfebc499d059137c9 | |
| parent | 58a9596ed4a509467e1781b433ff9c65a4e5b5ce (diff) | |
| download | postgresql-b4e3633ac42ed7af21bce611234ccbf820098644.tar.gz postgresql-b4e3633ac42ed7af21bce611234ccbf820098644.zip | |
Silence warning about deprecated assignment to $[ in check_keywords.pl
Alex Hunsaker
| -rwxr-xr-x | src/tools/check_keywords.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/tools/check_keywords.pl b/src/tools/check_keywords.pl index 3b686386143..17877548400 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; |