Re: [wxperl-users] (no subject)

[DH <cra...@ya...>]

First study the following 3 lines very closely

> 	my $stream = $process->GetInputStream;
>         sysread($stream, $buffer, 1);
> 	my $value = <$buffer>;

And read `perldoc -f sysread', `perldoc -f readline'

Also, since you use wxEXEC_ASYNC (0)

>   Wx::ExecuteArgs( [$^X, main::filename( $ubhdir . $ubhasm )], 0, $process 
> );

It doesn't mean that $process->IsInputAvailable
is going to return true immediately.

You probalby wanna 
    while(1) {
        select undef, undef, undef, .3;
        last if $process->IsInputAvailable();
    }

before you
>   while( $process->IsInputAvailable ) {
    > 	Wx::LogMessage( $value ) if defined $value;
        


__________________________________________________
Do you Yahoo!?
The New Yahoo! Search - Faster. Easier. Bingo
http://search.yahoo.com