Possible bug in Tcl::pTk::call() (widget reference case)

[chrstphrchvz]

I spot this in the code:

perl-tcl-ptk/lib/Tcl/pTk.pm

Line 1527 in d0fc699

elsif ($ref =~ /^Tcl::Tk::Widget\b/) {

Should this instead be checking for Tcl::pTk::Widget? Is this causing any observable issues?

I don't think this was something copied over from Tcl::Tk.

[chrstphrchvz]

It was copied from Tcl.pm 1.02 (part of what was removed in 1.03: gisle/tcl.pm@5b55b71). So probably never used by Tcl::pTk (after it was renamed from Tcl::Tk).