Thus it was written in the epistle of rubio,
>
> Ted Ashton wrote:
> >
> > I'm guessing that PERL.PUB.SYS closes $STDIN or something.  Am I going to have
> > to give up and make this into two files--the stream file and the perl script?
> > Will that solve it?
>
> Have you tried terminating the data to pass to Perl with ":EOD" to
> signal
> POSIX end-of-file?  That might help.
>
> --Rubio
>
Sorry about that--I ought to have said before.  Adding a "!EOD" (:EOD) in the
job stream doesn't help.  However, something else did.  I kept working along on
my project, leaving that problem to solve later and in a test run after I had
added one more line of code to the middle of the program, it started working.
I took the !EOD out and it did the expected thing of slurping up whatever came
next, leaving the !EOJ (which had been disappearing again).  So I put the !EOD
back in and went on working on the program.  A number of added lines of code
later it stopped working again.  I'm now suspecting that it is reading $STDIN
in blocks or some such.  Does that fit with the symptoms?

Ted
--
Ted Ashton ([log in to unmask]) | From the Tom Swifty collection:
Southern Adventist University    | "I'll never understand quantum mechanics",
Collegedale, TN  37315           | Tom sighed starrily.
(423) 238-2703                   |