Garden Dwarf has asked for the wisdom of the Perl Monks concerning the following question:

Hello,

I have a perl program working fine as perl, but when converting to an exe (using pp), it dies by saying "Can't call method crc32String...".

After investigation I notice that I build a button with a "png" graphic part. The image is loaded using Tk:findINC(), which seems to be an issue (and as it is part of a third party module, I cannot avoid this). I didn't find anything about this (which dll do I have to include?) on Google, so I need some help if you don't mind.

The line to generate this error is as follows:

print Tk::findINC('icon.png')."\n";

Thanks in advance!

Replies are listed 'Best First'.
Re: Using Tk inside a Perl exe
by marto (Cardinal) on Nov 16, 2018 at 11:02 UTC

    Post a SSCCE and show how you're calling pp to package your application.

[reply]
      No problem, here you go: 
      END{
#!/bin/perl
use Tk;
use strict;
use warnings;
use Data::Dumper;

print "The fils is located here: ".Tk::findINC('icon.png')."\n"; 

exit 0;
}

      [download]

      ... and the compilation instructions (icon.png is in the same directory as the Perl code):

      pp -a "icon.png;resources/icon.png" -o example.exe example.pl

      After executing the exe, I have the following message:

      Can't call method "crc32String" without a package or object reference 
+at (...)/strawberry-perl-5.14.4.1-64bit-portable/perl/vendor/lib/PAR/
+Heavy.pm line 146.
END failed--call queue aborted at -e line 965.

      [download]
[reply]
[d/l]
[select]

        Thanks. Looking at findINC it'll search @INC for a file. If icon.png is in the same directory as example.pl, example.pl fails to execute with the same error. I'm not a Tk expert, there are many nodes here from people with much more experience (Super Search, DuckDuckGo etc..)

        However, you're specifically adding this file to resources/icon.png, either altering your code to Tk::findINC('resources/icon.png') and packaging the way you did will work, e.g.

        The fils is located here: /tmp/par-6d6172746f/cache-535ec6de1b4efb148a
+c99123aadeb8c4f902fa64/inc/resources/icon.png

        [download]

        Or just don't package that way:

        marto@Shemp:~/tkpp$ ls
icon.png  tk.pl
marto@Shemp:~/tkpp$ pp -a "icon.png;icon.png" -o tk tk.pl
marto@Shemp:~/tkpp$ ./tk 
The fils is located here: /tmp/par-6d6172746f/cache-df7f1b303bbe076aaf
+1a97c9630e6d50e56371c6/inc/icon.png

        [download]

        I've posted an example in the past showing how to determine if the code is being run via a script of a PAR packaged executable, let me know if you can't find this, should you go looking.

        Lastly, I don't know what you want to do with the png file, perhaps there's a better more portable way to achieve that.

[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom