[comp.lang.perl] Out of memory!

msp@pronet.chi.il.us (Mike Protofanousis) (03/29/91)

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