Strange problem

[Gr0a]

Hello, 


I have a strange problem with PAR 

perl, v5.8.7 built for i686-linux-thread-multi
PAR-0.89


-- test.pl ---
#!/usr/bin/perl
use Tk;

$MW = MainWindow->new;

$Button = $MW->Button(
    -text   => 'Push me',
    -command => 'main::run_cmd',
)->pack();

MainLoop;

sub run_cmd()
{
    open CMD, "perl -MPAR for.par |"
    or die "Can't open CMD : $!";
    while(<CMD>)
    {
        print $_;
    }
}

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



and 


--- for.pl ---
#!/usr/bin/perl
use IO::Handle;

STDOUT->autoflush(1);

foreach(1..100)
{
    print STDOUT $_,"\n";
    sleep 1;
}
--------------



pp --multiarch --output=for.par for.pl 
pp --multiarch --output=test.par test.pl

When i run test.par and i click on the button, the
main window is "cloned" and for.par isn't executed. 

If i replace the command perl -MPAR for.par by perl
for.pl for.pl is correctly executed. 




        

        
                
___________________________________________________________________________ 
Appel audio GRATUIT partout dans le monde avec le nouveau Yahoo! Messenger 
Téléchargez cette version sur http://fr.messenger.yahoo.com