[tcltk-perl] return of 1=>1.0 transformation error

[Konovalov, V. <vko...@sp...>]

Dear all,

I did not checked for details yet, but when I tried CVS version of Tcl and
Tcl::Tk I gave failed test for t/photo.t
Output is below:

Tcl error 'bad grid value "1.0": must be a non-negative integer at
d:/Perl56/site/lib/Tcl.pm line 363.
' while invoking scalar result call:
	"grid .lbl02 -row 1 -column 0" at d:/Perl56/site/lib/Tcl.pm line 364
	Tcl::call('Tcl::Tk=SCALAR(0x1b8f0d8)', 'grid', '.lbl02', '-row', 1,
'-column', 0) called at d:/Perl56/site/lib/Tcl/Tk.pm line 750
	Tcl::Tk::Widget::grid('Tcl::Tk::Widget::Label=SCALAR(0x20cdb14)',
'-row', 1, '-column', 0) called at t/photo.t line 23


Interesting to say, tests for geometry manager do not catch this, but
t/photo.t does

perl-5.8.2 passes test without this error, 5.6.0 and 5.6.1 fail.

If anyone have ideas how to fix, please share your knowledge.

Best regards,
Vadim.