Skip Menu |
 

This queue is for tickets about the libwin32 CPAN distribution.

Report information
The Basics
Id: 11399
Status: resolved
Priority: 0/
Queue: libwin32

People
Owner: Nobody in particular
Requestors: rurban [...] x-ray.at
Cc:
AdminCc:

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

Attachments
Process-CurrentID.patch



Subject: cygwin add Win32::Process::GetCurrentProcessID() (not $$)
Download (untitled) / with headers
text/plain 406b
Attached patch bumps Win32::Process to 0.10 Added Win32::Process::GetCurrentProcessID(), because $$ != winpid on cygwin. There's no way to get the windows pid of cygwin processes, needed for Win32::Process. You could also get it via Win32::API (or another FFI) but there's none in libwin32, so I added this needed function it to Win32::Process. Missing is a general cygwin pid => windows pid translator.
diff -bur libwin32-0.191.orig/Process/Changes perl-libwin32-0.191/Process/Changes --- libwin32-0.191.orig/Process/Changes 2002-07-09 02:15:54.000000000 +0100 +++ perl-libwin32-0.191/Process/Changes 2005-02-06 18:51:35.456648200 +0100 @@ -1,5 +1,8 @@ Revision history for Perl extension Win32::Process. +0.10 Sun Feb 6 18:50:44 2005 + - add GetCurrentProcessID() for cygwin (by Reini Urban <rurban@x-ray.at>) + 0.09 Fri Aug 17 16:11:58 2001 - allow opening an existing pid, like OpenProcess() (thanks to Blair Zajac <blair@orcaware.com>) diff -bur libwin32-0.191.orig/Process/Makefile.PL perl-libwin32-0.191/Process/Makefile.PL diff -bur libwin32-0.191.orig/Process/Process.hpp perl-libwin32-0.191/Process/Process.hpp diff -bur libwin32-0.191.orig/Process/Process.pm perl-libwin32-0.191/Process/Process.pm --- libwin32-0.191.orig/Process/Process.pm 2002-07-09 02:15:54.000000000 +0100 +++ perl-libwin32-0.191/Process/Process.pm 2005-02-06 18:46:22.165788500 +0100 @@ -4,7 +4,7 @@ require DynaLoader; @ISA = qw(Exporter DynaLoader); -$VERSION = '0.09'; +$VERSION = '0.10'; # Items to export into callers namespace by default. Note: do not export # names by default without a very good reason. Use EXPORT_OK instead. @@ -159,6 +159,13 @@ Returns the Process ID. +=item Win32::Process::GetCurrentProcessID() + +Returns the current process ID, which is the same as $$. But not on cygwin, +where $$ is the cygwin-internal PID and not the windows PID. +On cygwin GetCurrentProcessID() returns the windows PID as needed for all +the Win32::Process functions. + =back =head1 EXPORTS diff -bur libwin32-0.191.orig/Process/Process.xs perl-libwin32-0.191/Process/Process.xs --- libwin32-0.191.orig/Process/Process.xs 2002-07-09 02:15:54.000000000 +0100 +++ perl-libwin32-0.191/Process/Process.xs 2005-02-06 18:42:35.232645700 +0100 @@ -455,3 +445,11 @@ } OUTPUT: RETVAL + +DWORD +GetCurrentProcessID() +CODE: + RETVAL = GetCurrentProcessId(); +OUTPUT: + RETVAL + diff -bur libwin32-0.191.orig/Process/test.pl perl-libwin32-0.191/Process/test.pl --- libwin32-0.191.orig/Process/test.pl 2002-07-09 02:15:54.000000000 +0100 +++ perl-libwin32-0.191/Process/test.pl 2005-02-06 18:43:26.372288800 +0100 @@ -30,7 +30,8 @@ # of the test code): my $p; -if (Win32::Process::Open($p, $$, 0)) { +my $pid = $^O eq 'cygwin' ? Win32::Process::GetCurrentProcessID() : $$; +if (Win32::Process::Open($p, $pid, 0)) { ok(1); ok($p->SetPriorityClass(HIGH_PRIORITY_CLASS)) } else { Nur in perl-libwin32-0.191/Process: test.pl~. diff -bur libwin32-0.191.orig/Process/typemap perl-libwin32-0.191/Process/typemap --- libwin32-0.191.orig/Process/typemap 2002-07-09 02:15:54.000000000 +0100 +++ perl-libwin32-0.191/Process/typemap 2004-12-02 00:55:57.797179500 +0100 @@ -12,7 +12,7 @@ T_PTROBJ if (sv_derived_from($arg, \"${Package}\")) { IV tmp = SvIV((SV*)SvRV($arg)); - $var = ($type) tmp; + $var = ($type)(DWORD) tmp; } else croak(\"$var is not of type ${Package}\")


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.