From: <mn...@us...> - 2007-01-08 22:02:33
|
Author: mnodine Date: 2007-01-08 23:02:23 +0100 (Mon, 08 Jan 2007) New Revision: 4870 Modified: trunk/prest/prest Log: Convert -D option names to use underscores ("_") internally instead of hyphens ("-") between words. Modified: trunk/prest/prest =================================================================== --- trunk/prest/prest 2007-01-08 22:01:07 UTC (rev 4869) +++ trunk/prest/prest 2007-01-08 22:02:23 UTC (rev 4870) @@ -122,6 +122,11 @@ ${"Eval_::$var"} = $opt_W{$key}; } # Process -D variables + %opt_D = map(do{ + my $val = $opt_D{$_}; + s/-/_/g; + ($_, $val); + }, keys %opt_D); my %report_levels = (info=>1, warning=>2, error=>3, severe=>4, none=>5); $opt_D{report} = do {local $^W=0; # Temporarily shut off warnings main::FirstDefined($report_levels{$opt_D{report}}, |