| Subject: | stdtype ':n' mis-parses exponential notation eg. "1e-20" => "1" |
Hi Damian,
RE: stdtype ':n' mis-parses exponential notation eg. "1e-20" => "1"
# bug.pl
use Getopt::Declare;
my $args = Getopt::Declare->new(q{
-evalue <E:0+n> Maximum e-value <E> to consider
});
print $args->{'-evalue'}, "\n";
sh$ ./bug.pl -evalue 1e-20
# prints "1"
# should print "1e-20"
The problem is a missing /[-+]?/ after the /[eE]/ I guess?
':n' => { pattern =>'(?:(?:%T[+-]?)(?:%D+(?:%T\.%D*)?(?:%T[eE]%D+)?'
. '|%T\.%D+(?:%T[eE]%D+)?))' },
BTW, I had a chance to see Paul Fenwick speak in Perth recently, very
impressive and entertaining. Reminded me of your old Monash lecturing days!
It Getopt::Clade still on the back-burner?
--Torsten Seemann