niner / Inline-Perl5

Use Perl 5 code in a Raku program
Artistic License 2.0
94 stars 30 forks source link

Segfault detected in Perl6 but not in Perl5 equivalent code.... #144

Closed Xliff closed 4 years ago

Xliff commented 4 years ago

This code will crash rakudo with a segfault:

use Excel::Writer::XLSX:from<Perl5>;
my ($wb, $ws, $webinarStart);

my $d = DateTime.now;
$wb = Excel::Writer::XLSX.new("ODWD-Report-{ $d.yyyy-mm-dd }.xlsx");
$ws = $wb.add_worksheet('Raw Data');

my $heading = $wb.add_format();
$heading.set_bold();
$heading.set_underline();
$heading.set_bg_color( '#BDD7EE' );

Here's what I get out of perl6-gdb-m:

0x00007ffff4761c0e in p5_call_gv_two_args (my_perl=0x55555a357c70, gv=0x0, arg=0x55555bb508a8, arg2=0x55555966c370, count=0x55555571c48, type=0x5555557f1c50,   err=0x5555557f1c58) at p5helper.c:893

   893             SV * const rv = sv_2mortal(newRV((SV*)GvCV(gv)));
niner commented 4 years ago

Fixed in: https://github.com/niner/Inline-Perl5/commit/b21371e4cd93c05030f35d059e5bf0338b221162