| Subject: | Tk::ChooseDate(-dateformat => 3) uses wrong format string |
Tk-ChooseDate-0.4
$mw->ChooseDate(-textvariable=>\$date3,
-dateformat => 3,
)->pack();
produces 'YYYY/MM/DD' in the entry box. The sprintf for (format == 3) in
formatDate() should be:-
$val = sprintf( "%02d/%02d/%04d", $d, $m, $y );
This is a typo (looks like a pasted line from (format == 2)) and not
Perl version or OS specific.
Neat widget, though.