| Subject: | Tcl::pTk 0.94 Tk->findINC |
| Date: | Tue, 30 Oct 2018 16:17:43 +0100 |
| To: | bug-Tcl-pTk [...] rt.cpan.org |
| From: | welle Ozean <welleozean [...] googlemail.com> |
Calling "Tk->findINC('.')" in the following line fires an error in some
circumstances:
# Tcl::pTk::libary variable: Translation from perl/tk Tk.pm
{($Tcl::pTk::library) = __FILE__ =~ /^(.*)\.pm$/;}
$Tcl::pTk::library = Tk->findINC('.') unless (defined($Tcl::pTk::library)
&& -d $Tcl::pTk::library);
I solved it (at least there are no complaints anymore) changing the line
into, but I am not quite sure that this is a correct patch:
$Tcl::pTk::library = findINC('.') unless (defined($Tcl::pTk::library) && -d
$Tcl::pTk::library);
Note that there is a subroutine findINC in the same pTk.pm