[comp.lang.perl] PERL's malloc problem

SAMBI@bnr.ca (I.S.) (12/07/90)

I am new to perl user group and I am not aware if this is a known problem
or its new. The following prgram gives me kernel Warning of out of swap
when I run it with a 'perl' code compiled using perl's malloc. It runs
fine with 'perl' code which does not use perl's malloc. Any one have any
clues.(perl's malloc runs much faster).

#  PERL's malloc - Problem. (patch level 40).System: Xenix 2.3 on 386.
#
#  Using PERL's malloc in configure,
#  Program gives => kernel: WARNING: out of swap on a machine with
#  9mb RAM and 5 mb swap. Running with 'perl' compiled without its
#  malloc, the program runs to completion (but it is slow).
#
# Data file: Any file containing 15,000 lines (85 characters each).
#
if (open(IN, "data") != 1)
{
  die "Failed to open data file";
}
$a = 0;
$i = 0;
while (<IN>)
{
  $dum1 = substr($_, 6, 11);

  $dum{$i, 'value', $dum1} = $_;
  $dum{$i++, 'demand', $dum1} = $_;

} # end of while