UPDATE: Problem Installing Perl-Tk on macOS Monterey (12.6) with Apple M1 chip

UPDATE: I created my own private copy of basic.t and added some stderr debugging statements, then tried running it by hand from the PNG directory. Ran it many times, and it mostly fails with a segmentation fault, but it also will sometimes hang as I said before. Here is an example of when it segfaults:

$ cd /Users/cmv/.cpan/build/Tk-804.036-0/PNG
$ /opt/homebrew/Cellar/perl/5.36.0/bin/perl -w t/cmv.t
1..5
ok 1 - use Tk::PNG;
Photo 1
zsh: segmentation fault  /opt/homebrew/Cellar/perl/5.36.0/bin/perl -w 
+t/cmv.t
[download]

Here are some relavent lines from my cmv.t file

...
use_ok('Tk::PNG');

my $file = (@ARGV) ? shift : "$FindBin::RealBin/../pngtest.png";

my $mw = MainWindow->new;
$mw->geometry('+10+10');
$mw->update;            #### Added by --cmv
sleep 10;

{
print STDERR "Photo 1\n";    #### Added by --cmv
    my $image = $mw->Photo('-format' => "png", -file => $file);
print STDERR "Photo 2\n";    #### Added by --cmv
    ok($image, "Loaded PNG image from $file");
print STDERR "Photo 3\n";    #### Added by --cmv
    $mw->Label(-image => $image)->pack;
print STDERR "Photo 4\n";    #### Added by --cmv
    $mw->update;
print STDERR "Photo 5\n";    #### Added by --cmv
}
...
[download]

Note 1: The $mw->update; line does cause the Tk mainwindow to show up on my screen!!!

Note 2: The problem seems to be loading the PNG photo. More digging needed here.

Many thanks to all who have provided pointers and help!

-Craig

Comment on UPDATE: Problem Installing Perl-Tk on macOS Monterey (12.6) with Apple M1 chip Select or Download Code

Replies are listed 'Best First'.

Re: UPDATE 2: Problem Installing Perl-Tk on macOS Monterey (12.6) with Apple M1 chip
by cmv (Chaplain) on Oct 07, 2022 at 14:59 UTC

Here is where I'm currently at:

The offending line, causing the segfault, in the basic.t test file is:

my $image = $mw->Photo('-format' => "png", -file => $file);

file="~/.cpan/build/Tk-804.036-0/PNG/t/../pngtest.png"

When a segmentation fault occurs on a Mac, a *.ips file is created in ~/Library/Logs/DiagnosticReports providing more details on the fault. Stack frame analysis from this data yields:

"frames":[ {"imageOffset":9468,"symbol":"_longjmp","symbolLocation":72,"imageIndex":0}, {"imageOffset":18446639227543793010,"imageIndex":1}, {"imageOffset":166568,"symbol":"png_error","symbolLocation":420,"imageIndex":2}, {"imageOffset":91072,"symbol":"png_create_read_struct_2","symbolLocation":636,"imageIndex":2}, {"imageOffset":90424,"symbol":"png_create_read_struct","symbolLocation":60,"imageIndex":2}, {"imageOffset":10552,"symbol":"ChnReadPNG","symbolLocation":112,"imageIndex":2}, {"imageOffset":419820,"symbol":"ImgPhotoConfigureMaster","symbolLocation":1176,"imageIndex":3}, {"imageOffset":398084,"symbol":"ImgPhotoCreate","symbolLocation":204,"imageIndex":3}, {"imageOffset":366856,"symbol":"Tk_ImageObjCmd","symbolLocation":1664,"imageIndex":3}, {"imageOffset":88836,"symbol":"Call_Tk","symbolLocation":624,"imageIndex":3}, {"imageOffset":133540,"symbol":"XStoImage","symbolLocation":608,"imageIndex":3}, {"imageOffset":752088,"symbol":"Perl_pp_entersub","symbolLocation":1696,"imageIndex":4}, {"imageOffset":712144,"symbol":"Perl_runops_standard","symbolLocation":32,"imageIndex":4}, {"imageOffset":157920,"symbol":"S_run_body","symbolLocation":116,"imageIndex":4}, {"imageOffset":157800,"symbol":"perl_run","symbolLocation":648,"imageIndex":4}, {"imageOffset":15952,"symbol":"main","symbolLocation":180,"imageIndex":5}, {"imageOffset":20620,"symbol":"start","symbolLocation":520,"imageIndex":6}

png_error()

imagIndex()

_longjmp

Since I'm not currently using PNG images for anything in my code, I just stubbed out the two test files and installed pTk via CPAN as you normally would. Everything else seems to be working fine.

I would like to eventually figure out why this code segfaults on macOS Monterey (12.6) with Apple M1 chip, and feedback to the PNG group on what needs to be fixed.

Any suggestions on what to try next would be welcome!

Thanks

-Craig

[reply]
[d/l]
[select]


Clear questions and runnable code get the best and fastest answer
	PerlMonks