Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!casbah.acns.nwu.edu!nucsrl!tellab5!vpnet!gagme!pronet!msp
From: msp@pronet.chi.il.us (Mike Protofanousis)
Newsgroups: comp.lang.perl
Subject: Out of memory!
Message-ID: <1991Mar29.072947.1927@pronet.chi.il.us>
Date: 29 Mar 91 07:29:47 GMT
Organization: pronet - not yet organized
Lines: 25

I am currently working on my first perl script.  It is now 118 lines
long.  The problem is I just ran into a brick wall!  

I am getting an "Out of memory!" error.
The happens on the second time I get to this line:

$bytes = sysread ($mail, $buffer,  $i += $BUFSIZ)
	while (($found = index ($buffer, sprintf ("\n\n"))) == -1);

It dies on the sysread();  $BUFSIZ = 1024;

I'm sure there may be a better way of doing the above, but for now
I would like to know why I am getting this "Out of memory!" error.

I am using Perl 3.0 PL 44  on ESIX.

The script requires the getopts.pl and has 1 additional function.
It also reads in a few ENV variables.  It opens 2 files and
only has 2 @arrays...

Any ideas?

-- 
Mike Protofanousis
msp@pronet.chi.il.us