c8h4/postgresql
1
0
Fork 0
Code Issues Pull requests Actions 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 = "."; $path = ".";
} }
$[ = 1; # set array base to 1
$, = ' '; # set output field separator $, = ' '; # set output field separator
$\ = "\n"; # set output record separator $\ = "\n"; # set output record separator
@ -60,7 +59,7 @@ line: while (<GRAM>) {
$n = (@arr = split(' ', $S)); $n = (@arr = split(' ', $S));
# Ok, we're in a keyword list. Go through each field in turn # 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) { if ($arr[$fieldIndexer] eq '*/' && $comment) {
$comment = 0; $comment = 0;
next; next;