Path: utzoo!utgpu!news-server.csri.toronto.edu!mailrus!uunet!samsung!emory!rsiatl!pda
From: pda@rsiatl.UUCP (Paul D. Anderson)
Newsgroups: comp.lang.perl
Subject: Re: Problems with format...
Message-ID: <1764@rsiatl.UUCP>
Date: 12 Apr 90 16:22:24 GMT
References: <1649@rsiatl.UUCP> <7744@jpl-devvax.JPL.NASA.GOV>
Organization: Radiation Systems, Inc. (a thinktank, motorcycle, car and gun works facility)
Lines: 22

lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall) writes:

>I have dim recollections of such a problem somewhere sometime with somebody's
>stdio.  What version of perl are you running under what version of what os
>running on what kind a beastie?
>Do you do any forks?  What happens if you say "select(OUT); $| = 1;"?

I just went back and put in the select(OUT) and $|=1.  It doesn't change
the output- but I did inspect the output stream more closely.  What appears
to be happening is that close(OUT) doesn't reset the top of page counter.
On each subsequent page, more and more lines of the body appear *before*
the top of page header.  I suspect this is probably actually the case-
since I close the output stream on each iteration of the loop to force a
new top-of-page.  

I'm doing no forks, save the open(OUT,'|tabexp');.  I'm running current
patchlevel of Perl.  The OS is Interactive Unix on a 386 PC.  Hope that 
helps.

-paul
-- 
* Paul Anderson * Crossroads Computing * (404) 565-0761 * emory!rsiatl!pda *