| Subject: | crash: Test::Class modulino |
| Date: | Fri, 19 Jun 2015 00:02:22 -0500 |
| To: | bug-Perl-Dist-Strawberry [...] rt.cpan.org |
| From: | Felipe Gasper <felipe [...] felipegasper.com> |
Hello,
The following blows up in Strawberry Perl:
---------------
#!/usr/bin/env perl
package t::IO::Die;
use strict;
use parent qw(
Test::Class
);
use Test::More;
if ( !caller ) {
my $test_obj = __PACKAGE__->new();
plan tests => $test_obj->expected_tests();
$test_obj->runtests();
}
#----------------------------------------------------------------------
sub test_fork : Tests(1) {
my $pid = fork() || do { exit };
ok( $pid, 'PID returned' );
waitpid $pid, 0;
return;
}
1;
---------------
Here is data about the crash:
Problem signature:
Problem Event Name: APPCRASH
Application Name: perl.exe
Application Version: 5.22.0.1
Application Timestamp: 556cd8b3
Fault Module Name: perl522.dll
Fault Module Version: 0.0.0.0
Fault Module Timestamp: 556cd8b3
Exception Code: c0000005
Exception Offset: 000000000012c38b
OS Version: 6.3.9600.2.0.0.256.48
Locale ID: 1033
Additional Information 1: ea7d
Additional Information 2: ea7d009ed17f8e62e94c8036b4f243fc
Additional Information 3: 5c8c
Additional Information 4: 5c8c8afb0e20134130d9b7ce4b0465b9
Read our privacy statement online:
http://go.microsoft.com/fwlink/?linkid=280262
If the online privacy statement is not available, please read our
privacy statement offline:
C:\WINDOWS\system32\en-US\erofflps.txt
------------
The breakage appears to stem from something in Test::Class; if I test
fork() without that module, it’s fine.
I’ve not tried it without the modulino pattern.
I hope this helps … let me know if you need more information!
-FG