Skip Menu |

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

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

Owner: Nobody in particular
Requestors: ollkuz [...]

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

Subject: Win32::Job fail to spawn jobs
Download (untitled) / with headers
text/plain 644b
Win32::Job failes to spawn jobss on Vista builds newer then 3553 ( 3542, 3562) and so on. Failes with "Access is denied" message. If launched from cmd by hands - all works fine, on doubleclick and autostart - failes. Here are test scripts. Try toexecute it from cmd and doubleclick to see the difference. This is perl, v5.8.8 built for MSWin32-x86-multi-thread (with 25 registered patches, see perl -V for more detail) Copyright 1987-2006, Larry Wall Binary build 817 [257965] provided by ActiveState http://www. Built Mar 20 2006 17:54:25 1. libwin32 [] Tested on a coulple of configurations on clean install.
text/x-perl 81b
#!usr/bin/perl # use FindBin qw($Bin); system ("perl \"$Bin\\\"");
text/x-perl 79b
#!usr/bin/perl # while (<STDIN>) { chomp; print STDOUT ("$_\n"); }
Subject: in.txt
Download in.txt
text/plain 6b
text/x-perl 1.1k
#!usr/bin/perl # use FindBin qw($Bin); print F "Starting!\n"; use Win32::Job; $Script = "$Bin\\"; $XMLInput = "$Bin\\in.txt"; $XMLOutput = "$Bin\\out.txt"; $Timeout = 1000; open (F,">log.txt"); my $Job = new Win32::Job; my $PId = $Job->spawn ( $^X, "perl $Script", { stdin => $XMLInput, stdout=> $XMLOutput, # stderr => <STDERR> } ); if (defined ($PId)) { print "Spawned job with PId = $PId, will wait for $Timeout sec.\n"; print F "Spawned job with PId = $PId, will wait for $Timeout sec.\n"; } else { print "Spawn failed: $^E"; print F "Spawn failed: $^E"; return 2; } unless ($Job->run($Timeout, 1)) { print "Job seems to hang. Killing.\n"; print F "Job seems to hang. Killing.\n"; $Job->kill(); return 3; } else { print "Successfully finished the job\n"; print F "Successfully finished the job\n"; }

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

Please report any issues with to