Path: utzoo!utgpu!cunews!bnrgate!bwdls58!leibniz!walt
From: walt@bcarh133.uucp (Walt Sullivan)
Newsgroups: comp.lang.perl
Subject: Perl 4.0 pl 3 bug on HP-UX 6.5
Message-ID: <WALT.91Jun20084840@bcarh133.uucp>
Date: 20 Jun 91 12:48:40 GMT
Sender: news@bwdls58.bnr.ca
Distribution: comp
Organization: Bell-Northern Research, Ottawa, Canada
Lines: 48

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?

Please post replies or mail them to "walt@bnr.ca", not the address in the 
"From" field.

------------------------- Cut here -------------------------
#!/disc1/other/bin/perl
#
require "getopt.pl";
&Getopt;
$debug = defined($opt_d);
#
$doing='node33';
$results{$doing}='CFT';
$systype='9000/360';
$memory='16M';
$swap='32M';
$hpux_ver='6.5';
$config='maxuprc=80, nproc=145, shmbrk=512';
if ($debug) {
    print "doing='$doing', results{$doing}='$results{$doing}', systype='$systype'\n";
    print "memory='$memory', swap='$swap', hpux_ver='$hpux_ver'\n";
    print "config='$config'\n";
}
$^ = "HEADING";
$~ = "OUTPUT";
#
write;

format HEADING =
Node     | PLS | Hardware | Mem | Swap | HP-UX | /etc/conf/dfile
---------+-----+----------+-----+------+-------+------------------------------
.
format OUTPUT =
@<<<<<<< | @<< | @<<<<<<< | @<< | @<<< | @<<<  | ^<<<<<<<<<<<<<<<<<<<<<<<<<<<
$doing, $results{$doing}, $systype, $memory, $swap, $hpux_ver, $config
~~         |     |          |     |      |       | ^<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                                     $config
---------+-----+----------+-----+------+-------+------------------------------
.       
------------------------- Cut here -------------------------

--
Walt Sullivan
BITNET: walt@bnr.ca (work)
UUCP: walt@orbit.amiga.ocunix.on.ca (home)