I just found a bug in the next_optional_argument() routine I posted
the other day. Here's a corrected version:
------------------------------------------------------------------------
sub next_optional_argument{
my($param,$rx) = ('', "^\\s*(\\[([^]]*)\\])?");
s/$rx/$param=$2;''/eo;
$param;
}
------------------------------------------------------------------------
It had been grabbing $1 instead, which included the square brackets
from the optional argument. I hope this didn't cause too much
confusion!
-Fred
--
Fred L. Drake, Jr.
[EMAIL PROTECTED]
Corporation for National Research Initiatives
1895 Preston White Drive Reston, VA 20191
