PERL PERL5 PORTERS 3 RE PATCH RE PERL WINPID
Date: Tue, 15 Feb 2005 20:45:13 -0800

Subject: Re: [PATCH] Re: perl winpid?
From: sthoenna@no-spam (Yitzchak Scott-Thoennes)

On Fri, Feb 11, 2005 at 11:00:37AM +0100, H.Merijn Brand wrote:
> On Thu, 10 Feb 2005 20:04:35 -0800, Yitzchak Scott-Thoennes <sthoenna@no-spam>

> wrote:
> > > > > Returns the cygwin process ID for the given windows pid. cygwin-only.
> > > > > > How does this look?
> > > > After discussion with Reini and Gerrit, I made some changes. Package > > for the builtin extra functions is now Cygwin::, and the cygwin32_
> > prefix is removed.
> > This new patch has now been applied to blead as change #23961
> Thanks, hoping this will increase Cygwin support
Rats, I somehow overlooked a test failure. Please add this:

--- perl/ext/B/t/stash.t.orig 2005-01-07 06:57:11.000000000 -0800
+++ perl/ext/B/t/stash.t 2005-02-15 20:08:59.063289600 -0800
@@no-spam -61,7 +61,7 @@no-spam @no-spam = grep { ! /^Win32$/ } @no-spam if $^O eq 'MSWin32';

@no-spam = grep { ! /^NetWare$/ } @no-spam if $^O eq 'NetWare';

@no-spam = grep { ! /^(Cwd|File|File::Copy|OS2)$/ } @no-spam if $^O eq 'os2';
-@no-spam = grep { ! /^Cwd$/ } @no-spam if $^O eq 'cygwin';

+@no-spam = grep { ! /^(Cwd|Cygwin)$/ } @no-spam if $^O eq 'cygwin';

if ($Is_VMS) {
@no-spam = grep { ! /^File(?:::Copy)?$/ } @no-spam