line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Acme::Segfault; |
2
|
2
|
|
|
2
|
|
60754
|
use utf8; |
|
2
|
|
|
|
|
22
|
|
|
2
|
|
|
|
|
13
|
|
3
|
|
|
|
|
|
|
|
4
|
|
|
|
|
|
|
BEGIN { |
5
|
2
|
|
|
2
|
|
111
|
require Exporter; |
6
|
2
|
|
|
|
|
417
|
*{import} = \&Exporter::import; |
7
|
|
|
|
|
|
|
} |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
our @EXPORT_OK = qw/segfault segfault_1 segfault_2 segfault_3/; |
10
|
|
|
|
|
|
|
our $VERSION = '0.01'; |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
sub segfault { |
13
|
0
|
|
|
0
|
1
|
|
&segfault_1(); |
14
|
0
|
|
|
|
|
|
&segfault_2(); |
15
|
0
|
|
|
|
|
|
&segfault_3(); |
16
|
|
|
|
|
|
|
} |
17
|
|
|
|
|
|
|
|
18
|
0
|
|
|
0
|
1
|
|
sub segfault_1 { $x = []; push @$x, eval { $x = 1; return $x = 1; } } |
|
0
|
|
|
|
|
|
|
|
0
|
|
|
|
|
|
|
|
0
|
|
|
|
|
|
|
19
|
0
|
|
|
0
|
1
|
|
sub segfault_2 { system("kill 11,$$"); } |
20
|
0
|
|
|
0
|
1
|
|
sub segfault_3 { *::=%::=0 } |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
1; |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
__END__ |