mirrors/postgres
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
Alex Hunsaker
This commit is contained in:
Heikki Linnakangas 2012-02-13 09:15:08 +02:00
parent 58a9596ed4
commit b4e3633ac4
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/tools/check_keywords.pl
View File

@ -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;