Skip Menu |

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

Report information
The Basics
Id: 33515
Status: open
Priority: 0/
Queue: Win32-Job

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

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

Subject: BUG in Win32::Job: Unable to run job as user other than user logged into machine
Date: Fri, 22 Feb 2008 10:33:16 -0500
To: <bug-libwin32 [...]>
From: "Steven Del" <sdel [...]>
Download (untitled) / with headers
text/plain 1.7k
Bug: Unable to run job as user other than user logged into machine Module: Win32::Job libwin32 version: 0.28 perl -v output: perl -v Show quoted text
> This is perl, v5.8.8 built for MSWin32-x86-multi-thread > (with 18 registered patches, see perl -V for more detail) > > Copyright 1987-2007, Larry Wall > > Binary build 822 [280952] provided by ActiveState Show quoted text
> Built Jul 31 2007 19:34:48 > > Perl may be copied only under the terms of either the Artistic License
or the Show quoted text
> GNU General Public License, which may be found in the Perl 5 source
kit. Show quoted text
> > Complete documentation for Perl, including FAQ lists, should be found
on Show quoted text
> this system using "man perl" or "perldoc perl". If you have access to
the Show quoted text
> Internet, point your browser at, the Perl Home
Page. Description: As a user logged into the console, run the attached code sample, assuming you have a file c:\echo_path.bat that is valid. It will succeed. However, if while logged in as this user, you open a command prompt as another user (run "runas /user:<other user> cmd"), and then you attempt to run the below code, $job->spawn fails and returns "Access is denied" in $^E. I can run the Windows batch file directly, meaning the issue must have to do with the job itself. Perl code sample: #!perl use Win32::Job; my $job = Win32::Job->new; my $test_cmd = "c:\\echo_path.bat"; my $pid = $job->spawn(undef, $test_cmd); # THIS LINE RETURNS UNDEF if ( ! $pid ) { print "*** Error: Unable to run command: ${test_cmd}:\n"; print " " . $^E . "\n"; exit(1); } my $ok = $job->run(30, 1); my $retval = $job->status->{$pid}->{exitcode}; if ( $retval == 293 ) { print "### Warning: Timed out:\n"; print " ${test_cmd}\n"; } exit(0);

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

Please report any issues with to