Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!sdd.hp.com!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.jpl.nasa.gov (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: Perl 4.0 pl 3 bug on HP-UX 6.5
Message-ID: <1991Jun21.003750.22389@jpl-devvax.jpl.nasa.gov>
Date: 21 Jun 91 00:37:50 GMT
References: <WALT.91Jun20084840@bcarh133.uucp>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Distribution: comp
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 19

In article <WALT.91Jun20084840@bcarh133.uucp> walt@bcarh133.uucp (Walt Sullivan) writes:
: I'm running Perl 4.0, patchlevel 03 on HP-UX 6.5. I am using Perl's malloc
: routines, not HP-UX's. The following perl script produces no output, grinds
: for a few seconds, then dies with "Out of memory!". Any guesses?
: ...
: format OUTPUT =
: @<<<<<<< | @<< | @<<<<<<< | @<< | @<<< | @<<<  | ^<<<<<<<<<<<<<<<<<<<<<<<<<<<
: $doing, $results{$doing}, $systype, $memory, $swap, $hpux_ver, $config
: ~~         |     |          |     |      |       | ^<<<<<<<<<<<<<<<<<<<<<<<<<<<
:                                                      $config
: ---------+-----+----------+-----+------+-------+------------------------------
: .       

That ~~ line is the culprit.  The ~~ says to keep on doing that line till it's
blank, and it'll never be blank.  I suppose it would be more general to
do it till none of the fields interpolate anything, but that never occurred
to me before this.  I'm stupider than you wish I was.

Larry