*** a/src/tools/check_keywords.pl
--- b/src/tools/check_keywords.pl
***************
*** 16,22 **** if (@ARGV) {
  	$path = ".";
  }
  
- $[ = 1;			# set array base to 1
  $, = ' ';		# set output field separator
  $\ = "\n";		# set output record separator
  
--- 16,21 ----
***************
*** 60,66 **** 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++) {
  	if ($arr[$fieldIndexer] eq '*/' && $comment) {
  	    $comment = 0;
  	    next;
--- 59,65 ----
      $n = (@arr = split(' ', $S));
  
      # Ok, we're in a keyword list. Go through each field in turn
!     for (my $fieldIndexer = 0; $fieldIndexer < $n; $fieldIndexer++) {
  	if ($arr[$fieldIndexer] eq '*/' && $comment) {
  	    $comment = 0;
  	    next;