[Persistentperl-users] Help with STDOUT

[Dallas E. <da...@nm...>]

I have a problem grabbing STDOUT with PersistentPerl.  It works fine =
when called via /usr/bin/perl or /usr/bin/suidperl.  The script, and the =
debug output is below.  =20

perl and suidperl both have a line of STDOUT.  perperl does not.  WTF.

Thanks for any advice!

--------------

#!/usr/bin/suidperl -w
#!/usr/bin/perl -w=20
#!/usr/bin/perperl -w -- -M20 -r5
# START TEST, RUN 3 TIMES USING DIFFERENT INTERPRETERS LISTED ABOVE

 select(STDIN); $|=3D1;

 while (<STDIN>) {
   chomp($_);
   &debug("STDIN LINE: $_");
 }
 close(STDIN);

 select(STDOUT); $|=3D1;
 open(SOUT,"<&STDOUT");
 while (<SOUT>) {
   &debug("SOUT LINE: $_");
 }

exit;

##############################

sub debug {

 my $log =3D shift;

  open (T,">>/tmp/debug.log");
  flock(T,2);
  print T $log . "\n";
  close (T);
}

##############################
# EOF


DEBUG OUTPUT UNDER PERPERL
----------------------------
STDIN: Received: from unknown (HELO nmgi.com) (64.217.128.161)
STDIN:   by 0 with SMTP; 13 Mar 2003 15:40:22 -0000
STDIN: Message-ID: <3E7...@nm...>
STDIN: Date: Thu, 13 Mar 2003 09:40:21 -0600
STDIN: From: Dallas Engelken <da...@nm...>
STDIN: User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; =
rv:1.3a) Gecko/20021212
STDIN: X-Accept-Language: en-us, en
STDIN: MIME-Version: 1.0
STDIN: To:  da...@nm...
STDIN: Subject: hi
STDIN: X-Enigmail-Version: 0.72.0.0
STDIN: X-Enigmail-Supports: pgp-inline, pgp-mime
STDIN: Content-Type: text/plain; charset=3Dus-ascii; format=3Dflowed
STDIN: Content-Transfer-Encoding: 7bit
STDIN:=20
STDIN: hi
STDIN:


DEBUG OUTPUT UNDER PERL
------------------------
STDIN: Received: from unknown (HELO nmgi.com) (64.217.128.161)
STDIN:   by 0 with SMTP; 13 Mar 2003 15:42:08 -0000
STDIN: Message-ID: <3E7...@nm...>
STDIN: Date: Thu, 13 Mar 2003 09:42:07 -0600
STDIN: From: Dallas Engelken <da...@nm...>
STDIN: User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; =
rv:1.3a) Gecko/20021212
STDIN: X-Accept-Language: en-us, en
STDIN: MIME-Version: 1.0
STDIN: To:  da...@nm...
STDIN: Subject: hi
STDIN: X-Enigmail-Version: 0.72.0.0
STDIN: X-Enigmail-Supports: pgp-inline, pgp-mime
STDIN: Content-Type: text/plain; charset=3Dus-ascii; format=3Dflowed
STDIN: Content-Transfer-Encoding: 7bit
STDIN:=20
STDIN: hi
STDIN:=20
SOUT LINE: Fda...@nm...@nmgi.com=20


DEBUG OUTPUT UNDER SUIDPERL
--------------------------
STDIN: Received: from unknown (HELO nmgi.com) (64.217.128.161)
STDIN:   by 0 with SMTP; 13 Mar 2003 15:43:06 -0000
STDIN: Message-ID: <3E7...@nm...>
STDIN: Date: Thu, 13 Mar 2003 09:43:06 -0600
STDIN: From: Dallas Engelken <da...@nm...>
STDIN: User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; =
rv:1.3a) Gecko/20021212
STDIN: X-Accept-Language: en-us, en
STDIN: MIME-Version: 1.0
STDIN: To:  da...@nm...
STDIN: Subject: hi
STDIN: X-Enigmail-Version: 0.72.0.0
STDIN: X-Enigmail-Supports: pgp-inline, pgp-mime
STDIN: Content-Type: text/plain; charset=3Dus-ascii; format=3Dflowed
STDIN: Content-Transfer-Encoding: 7bit
STDIN:=20
STDIN: hi
STDIN:=20
SOUT LINE: Fda...@nm...@nmgi.com