Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!rutgers!mcnc!uvaarpa!mmdf
From: SAMBI@bnr.ca (I.S.)
Newsgroups: comp.lang.perl
Subject: PERL's malloc problem
Message-ID: <1990Dec6.211921.22144@uvaarpa.Virginia.EDU>
Date: 6 Dec 90 21:19:21 GMT
Sender: mmdf@uvaarpa.Virginia.EDU (Uvaarpa Mail System)
Reply-To: SAMBI@bnr.ca
Organization: The Internet
Lines: 29

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


Brought to you by Super Global Mega Corp .com