From @rurban

This is a bug report for perl from cygwin@​cygwin.com,
generated with the help of perlbug 1.35 running under perl 5.9.4.

Attached patch fixes
lib/User/grent.t # Skip no gid 0
lib/User/pwent.t # Skip​: no uid 0
on cygwin.

Should be to bleadperl

2007-06-21 01​:13​:14 rurban@​x-ray.at
  * lib/User/grent.t, lib/User/pwent.t​: enable cygwin tests by
  using known working magic uid/gid.
  Fixes 1..0 # Skip​: no uid 0, 1..0 # Skip no gid 0

Flags​:
  category=library
  severity=medium

Site configuration information for perl 5.9.4​:

Configured by rurban at Wed Jun 20 02​:16​:19 GMT 2007.

Summary of my perl5 (revision 5 version 9 subversion 4) configuration​:
  Platform​:
  osname=cygwin, osvers=1.5.24(0.15642),
archname=cygwin-thread-multi-64int
  uname='cygwin_nt-5.1 reini 1.5.24(0.15642) 2007-01-31 10​:57 i686
cygwin '
  config_args='-de -Dmksymlinks -Duse64bitint -Dusethreads
-Uusemymalloc -Doptimize=-O3 -Dman3ext=3pm -Dusesitecustomize -Dusedevel'
  hint=recommended, useposix=true, d_sigaction=define
  useithreads=define, usemultiplicity=define
  useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
  use64bitint=define, use64bitall=undef, uselongdouble=undef
  usemymalloc=n, bincompat5005=undef
  Compiler​:
  cc='gcc', ccflags ='-DPERL_USE_SAFE_PUTENV -fno-strict-aliasing
-pipe -Wdeclaration-after-statement',
  optimize='-O3',
  cppflags='-DPERL_USE_SAFE_PUTENV -fno-strict-aliasing -pipe
-Wdeclaration-after-statement'
  ccversion='', gccversion='3.4.4 (cygming special, gdc 0.12, using
dmd 0.125)', gccosandvers=''
  intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=12345678
  d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
  ivtype='long long', ivsize=8, nvtype='double', nvsize=8,
Off_t='off_t', lseeksize=8
  alignbytes=8, prototype=define
  Linker and Libraries​:
  ld='ld2', ldflags =' -Wl,--enable-auto-import -s -L/usr/local/lib'
  libpth=/usr/local/lib /usr/lib /lib
  libs=-lgdbm -ldb -ldl -lcrypt -lgdbm_compat
  perllibs=-ldl -lcrypt -lgdbm_compat
  libc=/usr/lib/libc.a, so=dll, useshrplib=true, libperl=libperl.a
  gnulibc_version=''
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' -s'
  cccdlflags=' ', lddlflags=' -s -L/usr/local/lib'

Locally applied patches​:
  hints.cygwin.sh - ldflags -s
  lib-ExtUtils-Embed - insensitive against leading \\s
  lib-Test-Harness-Straps - $ENV{PERL5LIB} = ''
  major.version.cygwin.sh - cygperl-5_8.dll and not cygperl-5_8_x.dll
  Win32CORE - add Win32CORE to core

@​INC for perl 5.9.4​:
  /usr/lib/perl5/5.9/cygwin
  /usr/lib/perl5/5.9
  /usr/lib/perl5/site_perl/5.9/cygwin
  /usr/lib/perl5/site_perl/5.9
  /usr/lib/perl5/site_perl/5.9
  /usr/lib/perl5/vendor_perl/5.9/cygwin
  /usr/lib/perl5/vendor_perl/5.9
  /usr/lib/perl5/vendor_perl/5.9
  .

Environment for perl 5.9.4​:
  CYGWIN=server
  HOME=/home/rurban
  LANG (unset)
  LANGUAGE (unset)
  LD_LIBRARY_PATH (unset)
  LOGDIR (unset)

PATH=/usr/bin​:/usr/sbin​:/usr/local/sbin​:/usr/bin​:/usr/sbin​:/usr/local/sbin​:/usr/local/bin​:/usr/bin​:/bin​:/usr/X11R6/bin​:/cygdrive/c/WINDOWS/system32​:/cygdrive/c/WINDOWS​:/cygdrive/c/WINDOWS/System32/Wbem​:/bin​:/cygdrive/c/uti​:/bin​:/usr/lib/lapack
  PERL_BADLANG (unset)
  SHELL (unset)

--
Reini Urban
http​://phpwiki.org/ http​://murbreak.at/
http​://helsinki.at/ http​://spacemovie.mur.at/

From @rurban

2007-06-21 01:13:14 rurban@x-ray.at
	   * lib/User/grent.t, lib/User/pwent.t: enable cygwin tests by 
	     using known working magic uid/gid.
	     Fixes 1..0 # Skip: no uid 0, 1..0 # Skip no gid 0

--- bleadperl/lib/User/grent.t.orig	2006-06-13 19:29:20.000000000 +0000
+++ bleadperl/lib/User/grent.t	2007-06-20 23:09:06.281250000 +0000
@@ -18,7 +18,8 @@
 }
 
 BEGIN {
-    our @grent = getgrgid 0; # This is the function getgrgid.
+    our $gid = $^O ne 'cygwin' ? 0 : 18;
+    our @grent = getgrgid $gid; # This is the function getgrgid.
     unless (@grent) { plan skip_all => "no gid 0"; }
 }
 
@@ -29,7 +30,7 @@
 
 can_ok(__PACKAGE__, 'getgrgid');
 
-my $grent = getgrgid 0;
+my $grent = getgrgid $gid;
 
 is( $grent->name, $grent[0],    'name matches core getgrgid' );
 
--- bleadperl/lib/User/pwent.t.orig	2006-06-13 19:29:20.000000000 +0000
+++ bleadperl/lib/User/pwent.t	2007-06-20 23:10:17.406250000 +0000
@@ -21,6 +21,7 @@
     # On VMS getpwuid(0) may return [$gid,0] UIC info (which may not exist).
     # It is better to use the $< uid for testing on VMS instead.
     if ( $^O eq 'VMS' ) { $uid = $< ; }
+    if ( $^O eq 'cygwin' ) { $uid = 500 ; }
     our @pwent = getpwuid $uid; # This is the function getpwuid.
     unless (@pwent) { print "1..0 # Skip: no uid $uid\n"; exit 0 }
 }

From @rgs

Thanks, applied as #31435

From [Unknown Contact. See original ticket]

Thanks, applied as #31435

@rgs - Status changed from 'new' to 'resolved'