p5pRT
commented
24 years ago From larse@ISI.EDU
Running the following test script causes perl to crash. You may need to run the script several times before seeing the problem. (The script spawns a child process that does nothing but write to an array. The parent signals the child periodically.)
#!/usr/local/bin/perl -w
use strict;
use constant CHUNK_SIZE => 128; use constant ARRAY_SIZE => 1_000_000;
$| = 1;
if(my $pid = fork) {
# parent signals periodically
while(1) {
select undef\, undef\, undef\, 0.1;
kill(ALRM => $pid) == 1 or die "cannot signal: $!";
print ".";
}
} else {
# is kid up?
unless(defined $pid) { die "cannot fork: $!"; }
# initialize array (by using last element)
my @data;
$data[ARRAY_SIZE] = 1;
# state of the process (number of alarms received)
my $state = 0;
$SIG{ALRM} = sub { $state++ };
# run the test
while(1) {
# calculate new position for this iteration
my $pos = int rand ARRAY_SIZE;
# write a chunk to a random position
@data[$pos..$pos+CHUNK_SIZE] = (1) x CHUNK_SIZE;
}
}
Execution of this script results in the following output:
[sub: ~/thesis/bin] short ......................perl in malloc(): warning: recursive call. Out of memory! ....perl in malloc(): warning: recursive call. Out of memory! perl in free(): warning: recursive call. perl in free(): warning: recursive call. perl in free(): warning: recursive call. perl in free(): warning: recursive call. perl in free(): warning: recursive call. perl in free(): warning: recursive call. perl in free(): warning: recursive call. perl in free(): warning: recursive call. perl in free(): warning: recursive call. perl in free(): warning: recursive call. perl in free(): warning: recursive call. perl in free(): warning: recursive call. perl in free(): warning: recursive call. perl in free(): warning: recursive call. perl in free(): warning: recursive call. perl in free(): warning: recursive call. perl in free(): warning: recursive call. perl in free(): warning: recursive call. perl in free(): warning: recursive call. perl.perl in malloc(): warning: recursive call. Out of memory! perl in free(): warning: recursive call. cannot signal: No such process at short line 14. Exit 3
Please let me know if I can provide any other information to help track this bug down.
Migrated from rt.perl.org#2028 (status was 'resolved')
Searchable as RT2028$