> 2. I am surprised that ErrorEvent is not triggered in that case.  Are
> you using POE 0.25?  If there is a problem in Wheel::Run, it would
> help greatly if you could submit a test case that reproduces it.

I was running 0.24 on my system - I have updated this to 0.2501 from CVS and
the error persists.

robin:/users/rc6286/workspace/dev/perl/pas > perl test.perl
Output: Died at -e line 1.
$VAR1 = 'read';
$VAR2 = '0';
$VAR3 = '';
$VAR4 = 2;
$VAR5 = 'STDERR';
$VAR1 = 'read';
$VAR2 = '0';
$VAR3 = '';
$VAR4 = 2;
$VAR5 = 'STDOUT';
robin:/users/rc6286/workspace/dev/perl/pas > cat test.perl
use Data::Dumper;
use POE;
use POE::Filter::Stream;
use POE::Wheel::Run;

use strict;

POE::Session->create(
    'inline_states' => {
        '_start'        =>  sub {

            my $task = POE::Wheel::Run->new(
                'Program'       =>  'perl -e "die"',
                'CloseEvent'    =>  'close',
                'ErrorEvent'    =>  'error',
                'StderrEvent'   =>  'output',
                'StdoutEvent'   =>  'output',
                'StderrFilter'  =>  POE::Filter::Stream->new,
                'StdoutFilter'  =>  POE::Filter::Stream->new
            );
            $_[ HEAP ]->{'_task'} = $task;

        },
        '_stop'         =>  sub {},
        'close'         =>  sub { delete $_[ HEAP ]->{'_task'} },
        'error'         =>  sub { print Dumper( @_[ ARG0 .. ARG4 ] ) },
        'output'        =>  sub { print "Output: ", $_[ ARG0 ] }
    }
);
$poe_kernel->run;
exit 0;
robin:/users/rc6286/workspace/dev/perl/pas > perl -MPOE -le 'print
$POE::VERSION'
0.2501


For reference:


robin:/users/rc6286/workspace/dev/perl/pas > perl -V
Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
  Platform:
    osname=solaris, osvers=2.8, archname=sun4-solaris
    uname='sunos localhost 5.8 sun4u sparc sunw,ultra-1 '
    hint=previous, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
  Compiler:
    cc='cc', optimize='-xO3 -xdepend', gccversion=
    cppflags=''
    ccflags =''
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =''
    libpth=/lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -ldl -lm -lc -lcrypt
    libc=/lib/libc.so, so=so, useshrplib=true, libperl=libperl.so
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-R
/usr/perl5/5.00503/sun4-solaris/CORE'
    cccdlflags='-KPIC', lddlflags='-G'


Characteristics of this binary (from libperl):
  Built under solaris
  Compiled at Dec 22 1999 00:00:57
  %ENV:
    PERL5LIB="/users/rc6286/workspace/dev/perllibs"
    PERL5LIBS="/users/rc6286/workspace/dev/perllibs"
  @INC:
    /users/rc6286/workspace/dev/perllibs/sun4-solaris
    /users/rc6286/workspace/dev/perllibs
    /usr/perl5/5.00503/sun4-solaris
    /usr/perl5/5.00503
    /usr/perl5/site_perl/5.005/sun4-solaris
    /usr/perl5/site_perl/5.005
    .


Is there anything else which I can provide or try out to help?

Regards,
Rob


Rob Casey
Implementation Analyst
Essential and Direct Mail Development
Hermes Precisa Australia (Victoria)
Phone : (03) 9217-5501
Email : [EMAIL PROTECTED]
 

-----Original Message-----
From: Rocco Caputo [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, February 11, 2003 1:23 PM
To: [EMAIL PROTECTED]
Subject: Re: POE::Wheel::Run ErrorEvent





**********************************************************************
IMPORTANT
The contents of this e-mail and its attachments are confidential and intended
solely for the use of the individual or entity to whom they are
addressed.  If you received this e-mail in error, please notify
the HPA Postmaster, [EMAIL PROTECTED], then delete 
the e-mail.

This footnote also confirms that this e-mail message has been swept for
the presence of computer viruses by MimeSweeper.  Before opening or
using any attachments, check them for viruses and defects.

Our liability is limited to resupplying any affected attachments.

HPA collects personal information to provide and market our services.
For more information about use, disclosure and access see our Privacy
Policy at www.hpa.com.au
**********************************************************************

Reply via email to