POE::Wheel::Run

From: Eric Ortega (eto_at_splot.org)
Date: 10/18/03 

Date: Sat, 18 Oct 2003 01:19:50 -0700

Hello,

I am using libpoe-perl 0.26-5 on debian unstable. When using
POE::Wheel::Run like:

    $heap->{child} = POE::Wheel::Run->new
    (
      Program => "telnet aludra.usc.edu",
      StdinFilter => POE::Filter::Line->new(),
      StdoutFilter => POE::Filter::Stream->new(),
      StdoutEvent => "got_output",
      CloseEvent => "got_done",
    );

    sub got_output
    {
      my ( $kernel, $heap, $out ) = @_[ KERNEL, HEAP, ARG0 ];
      print( "$out**END\n" );
    }

I see stuff like this:

--------------------------------
Trying 128.125.19.184...
Connected to aludra.usc.edu.
Escape character is '^]'.
**END

<snip stuff>

       type "help policies" at the UNIX prompt to review them.

**END
You have mail.
**END
aludra.usc.edu(1): **END
aludra.usc.edu(1): **END
--------------------------------

Does anyone know why I am getting two prompts? I get the same behavior if
using 'octave', for example, instead of telnet.

If I use POE::Filter::Line I get slightly different and even more
unhelpful results. I will _not_ get any prompt in the first buffer, and
then will get the double prompt in the beginning of the next output.

Thanks for any tips.