From: <mn...@us...> - 2010-03-23 20:14:32
|
Author: mnodine Date: 2010-03-23 21:14:20 +0100 (Tue, 23 Mar 2010) New Revision: 6288 Modified: trunk/prest/t/60_new/parse.init/tables03.rst Log: Used $PARSER to modify "-D" options since modifying $opt_D has no effect Modified: trunk/prest/t/60_new/parse.init/tables03.rst =================================================================== --- trunk/prest/t/60_new/parse.init/tables03.rst 2010-03-23 20:13:27 UTC (rev 6287) +++ trunk/prest/t/60_new/parse.init/tables03.rst 2010-03-23 20:14:20 UTC (rev 6288) @@ -2,11 +2,11 @@ ---------------------------------------- .. perl:: - $main::opt_D{'rowattr'}='valign="top"'; ""; - sub blue { $main::opt_D{'entryattr'} = 'bgcolor="blue"'; "" } - sub red { $main::opt_D{'entryattr'} = 'bgcolor="red"'; "" } - sub clear { delete $main::opt_D{'entryattr'}; "" } - sub bottom { $main::opt_D{'rowattr'}='valign="bottom"'; "" } + $PARSER->{opt}{D}{'rowattr'}='valign="top"'; ""; + sub blue { $PARSER->{opt}{D}{'entryattr'} = 'bgcolor="blue"'; "" } + sub red { $PARSER->{opt}{D}{'entryattr'} = 'bgcolor="red"'; "" } + sub clear { delete $PARSER->{opt}{D}{'entryattr'}; "" } + sub bottom { $PARSER->{opt}{D}{'rowattr'}='valign="bottom"'; "" } =========== ============= ============= ============= .. **Average** **Comment** |