Skip Menu |
 

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

Report information
The Basics
Id: 37966
Status: new
Priority: 0/
Queue: Win32-Process

People
Owner: Nobody in particular
Requestors: Radoslav.Vargic [...] sitronicsts.sk
Cc:
AdminCc:

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



Subject: strange behavior of Win32::Process
Date: Sun, 27 Jul 2008 23:19:50 +0200
To: bug-Win32-Process [...] rt.cpan.org
From: Radoslav Vargic <Radoslav.Vargic [...] sitronicsts.sk>
Download (untitled) / with headers
text/plain 1.3k
Hello. I have encountered a strange behavior of Win32::Process. (I am running Windows XP and using Active Perl: v5.10.0 built for MSWin32-x86-multi-thread) (this perl version includes the 0.12 version of package Win32::Process) It seems that keeping the $ProcessObj blocks somehow the standard usage of threads and processes. (on the opposite side, when I put $ProcessObj=0 before I start to work with other processes/threads, everything works fine ...) E.g. the following demo code comes not through and remains blocked in the second "join command". use strict; use threads; use Win32::Process; my $ProcessObj; sub sub1 { print "In the thread begin\n"; sleep(1); print "In the thread end\n"; } sub ErrorReport{ print Win32::FormatMessage( Win32::GetLastError() ); } Win32::Process::Create($ProcessObj, "C:\\windows\\system32\\notepad.exe", "notepad temp.txt", 0, NORMAL_PRIORITY_CLASS, ".")|| die ErrorReport(); my $thr1 = threads->new(\&sub1); print "Before Join 1\n"; $thr1->join; print "After Join 1\n"; my $thr2 = threads->new(\&sub1); print "Before Join 2\n"; $thr2->join; print "After Join 2\n"; Maybe something must be specially handled to come through ... but what? Thanks in advance. Best regards R. Vargic


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.