performance patch

Curtis Villamizar wrote:
> 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.

I have no idea about the right place, however, being a strict perl
devotee, I couldn't let the following slip by:
 
> !        foreach $tmpword ( split("\\s+", "$tmppol") ) {

*horrified*. I guess you normally use TCL where such constructs are normal?
I'd write (which makes it even faster because the regexp needn't be compiled
every time)
          
           foreach $tmpword ( split( /\s+/, $tmppol ) ) {

Sorry for the extra intrusion,

--
#! ##### Jan-Pieter Cornet ##### <johnpc at xs4all.net> ##### perl
++$_;$!=$_+++$_;($:,$,,$/,$*)=$!=~/.(.)...(.)(.).(.)/;$!=$_+$_;
($@,$\,$~)=$!=~/(.)(.).(.)/; $_="$,$/$:"; $@++; $~="$~$_";($_)=
\$$=~/\((.)/;$|=++$_;$_++;$|++;$~="$~ $@$:";`$~$/$\$*$, $|>&$_`