performance patch

I hope this is the right place to send a tiny patch.  In any case,
this minor recoding makes the syntax check go a whole lot faster.

Curtis



Index: src/syntax.pl
===================================================================
RCS file: /usr/local/CVS-routing-dev/irr-source/dbase/src/syntax.pl,v
retrieving revision 2.4
diff -c -r2.4 syntax.pl
*** syntax.pl	1997/11/14 20:49:12	2.4
--- syntax.pl	1998/03/17 19:59:25
***************
*** 490,501 ****
  #
  # Now check the actual keywords
  #
! 	while($tmppol =~ s/(\S+)//) {
! 	    if (!&isaskeyword($1)) {
! 		return $O_ERROR, 
! 		"syntax error in \"$ATTL{$key}: peer $as cost $pref\"\n\t$1 ".
! 
! 		    "is not a routing policy KEYWORD";
  	    }
  	}
  	return $O_OK;
--- 490,501 ----
  #
  # Now check the actual keywords
  #
!        local($tmpword);
!        foreach $tmpword ( split("\\s+", "$tmppol") ) {
! 	   if (!&isaskeyword($tmpword)) {
! 	       return $O_ERROR, 
! 	       "syntax error in \"$ATTL{$key}: peer $as cost $pref\"\n".
! 		   \t$tmpword is not a routing policy KEYWORD";
  	    }
  	}
  	return $O_OK;