Skip Menu |
 

This queue is for tickets about the Win32-Job CPAN distribution.

Report information
The Basics
Id: 8533
Status: new
Priority: 0/
Queue: Win32-Job

People
Owner: Nobody in particular
Requestors: rafferty [...] expertmicro.com
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: (no value)
Fixed in: (no value)



Subject: libwin32 [0.19.1], Win32::Job, status()
Download (untitled) / with headers
text/plain 1.2k
Windows XP Professional,Version 2002, Service Pack 1 ActivePerl 5.6.1.633 =============================================================== use strict; use Win32::Job; use Sys::Hostname; use Data::Dumper; my $job; my $args; my $pid; my $prog; my $host; my $ok; my $rc; my %stat; my $timeout = 24*60*60; #seconds $host = hostname; $args = join(' ',@ARGV); #note: these are args that ri.bat would have $prog = 'I:\PerlProjects\no_ctl_c\my_ri.bat'; # TODO: pick right ri.bat $job = Win32::Job->new; $pid = $job->spawn($prog,$args,{no_window => 2}); print STDERR "\n"; print STDERR "host = $host\n"; print STDERR "prog = $prog\n"; print STDERR "args = $args\n"; print STDERR "pid = $pid\n"; $ok = $job->run($timeout); unless($ok){ print STDERR "timed out!\n"; } %stat = $job->status(); $Data::Dumper::Indent = 1; $Data::Dumper::Purity = 1; $Data::Dumper::Deepcopy = 1; print STDERR Data::Dumper->Dump( [ \%stat ], [ '*stat' ] ); print STDERR "\n"; =============================================================== result is: host = expert-32wq32m7 prog = I:\PerlProjects\no_ctl_c\my_ri.bat args = tnoctl.pl pid = 5848 %stat = ( 'HASH(0x183f12c)' => undef );
From: rurban [...] x-ray.at
Download (untitled) / with headers
text/plain 144b
What should we do with this test without the called bat? Add my_ri.bat, describe what fails or get lost. Works for me, BTW. (cygwin perl-5.8.6)


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.