List Info

Thread: t/op/groups failes on FreeBSD 6.2 (extra spaces in `id -a`)




t/op/groups failes on FreeBSD 6.2 (extra spaces in `id -a`)
user name
2006-12-28 23:10:44
# New Ticket Created by  Joost Bekkers 
# Please include the string:  [perl #41147]
# in the subject line of all future correspondence about
this issue. 
# <URL: h
ttp://rt.perl.org/rt3/Ticket/Display.html?id=41147 >


This is a bug report for perl from rootbps2.jodocus.org,
generated with the help of perlbug 1.35 running under perl
v5.8.8.


------------------------------------------------------------
-----

groups.t states:
===========
# That is, we might meet the following:
#
# foo bar zot				# accept
# foo 22 42 bar zot			# accept
# 1 22 42 2 3				# reject
# groups=(42),foo(1),bar(2),zot me(3)	# parse
# groups=22,42,1(foo),2(bar),3(zot me)	# parse
#
# and the groups= might be after, before, or between uid=...
and gid=...
===========

FreeBSD 6.2's `id -a` produces:

uid=0(root) gid=0(wheel) groups=0(wheel), 5(operator)

The extra space after the comma makes test 1 fail. Previous
versions of FreeBSD didn't support the -a flag for id(1), so
-Gn was used instead.

------------------------------------------------------------
-----
---
Flags:
    category=core
    severity=medium
---
Site configuration information for perl v5.8.8:

Configured by root at Thu Dec 28 23:50:04 CET 2006.

Summary of my perl5 (revision 5 version 8 subversion 8)
configuration:
  Platform:
    osname=freebsd, osvers=6.2-rc2,
archname=amd64-freebsd-thread-multi
    uname='freebsd bps2.jodocus.org 6.2-rc2 freebsd 6.2-rc2
#0: thu dec 28 18:21:01 cet 2006 rootbps2.jodocus.org:usrobjusrsrcsysbps amd64 '
    config_args='-sde -Dprefix=/usr/local
-Darchlib=/usr/local/lib/perl5/5.8.8/mach
-Dprivlib=/usr/local/lib/perl5/5.8.8
-Dman3dir=/usr/local/lib/perl5/5.8.8/perl/man/man3
-Dman1dir=/usr/local/man/man1
-Dsitearch=/usr/local/lib/perl5/site_perl/5.8.8/mach
-Dsitelib=/usr/local/lib/perl5/site_perl/5.8.8
-Dscriptdir=/usr/local/bin
-Dsiteman3dir=/usr/local/lib/perl5/5.8.8/man/man3
-Dsiteman1dir=/usr/local/man/man1 -Ui_malloc -Ui_iconv
-Uinstallusrbinperl -Dcc=cc -Duseshrplib
-Dccflags=-DAPPLLIB_EXP="/usr/local/lib/perl5/5.8.8/BSD
PAN" -Doptimize=-O2 -fno-strict-aliasing -pipe 
-Ud_dosuid -Ui_gdbm -Dusethreads=y -Dusemymalloc=n
-Duse64bitint'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=define use5005threads=undef
useithreads=define usemultiplicity=define
    useperlio=define d_sfio=undef uselargefiles=define
usesocks=undef
    use64bitint=define use64bitall=define
uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags
='-DAPPLLIB_EXP="/usr/local/lib/perl5/5.8.8/BSDPAN"
; -DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing
-pipe -Wdeclaration-after-statement -I/usr/local/include',
    optimize='-O2 -fno-strict-aliasing -pipe ',
   
cppflags='-DAPPLLIB_EXP="/usr/local/lib/perl5/5.8.8/BSD
PAN" -DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H
-fno-strict-aliasing -pipe -Wdeclaration-after-statement
-I/usr/local/include'
    ccversion='', gccversion='3.4.6 [FreeBSD] 20060305',
gccosandvers=''
    intsize=4, longsize=8, ptrsize=8, doublesize=8,
byteorder=12345678
    d_longlong=define, longlongsize=8, d_longdbl=define,
longdblsize=16
    ivtype='long', ivsize=8, nvtype='double', nvsize=8,
Off_t='off_t', lseeksize=8
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='cc', ldflags ='-pthread -Wl,-E -L/usr/local/lib'
    libpth=/usr/lib /usr/local/lib
    libs=-lm -lcrypt -lutil
    perllibs=-lm -lcrypt -lutil
    libc=, so=so, useshrplib=true, libperl=libperl.so
    gnulibc_version=''
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef,
ccdlflags='  -Wl,-R/usr/local/lib/perl5/5.8.8/mach/CORE'
    cccdlflags='-DPIC -fPIC', lddlflags='-shared 
-L/usr/local/lib'

Locally applied patches:
    defined-or

---
INC
for perl v5.8.8:
    /usr/local/lib/perl5/5.8.8/BSDPAN
    /usr/local/lib/perl5/site_perl/5.8.8/mach
    /usr/local/lib/perl5/site_perl/5.8.8
    /usr/local/lib/perl5/site_perl
    /usr/local/lib/perl5/5.8.8/mach
    /usr/local/lib/perl5/5.8.8
    .

---
Environment for perl v5.8.8:
    HOME=/root
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH=/usr/ports/lang/perl5.8/work/perl-5.8.8
    LOGDIR (unset)
   
PATH=/sbin:/bin:/usr/sbin:/usr/bin:/usr/games:/usr/local/sbi
n:/usr/local/bin:/usr/X11R6/bin:/root/bin
    PERL_BADLANG (unset)
    SHELL=/bin/csh

t/op/groups failes on FreeBSD 6.2 (extra spaces in `id -a`)
user name
2006-12-29 16:27:22
On Thu, 28 Dec 2006 15:10:44 -0800, Joost Bekkers (via RT)
<perlbug-followupperl.org> wrote:

> # New Ticket Created by  Joost Bekkers 
> # Please include the string:  [perl #41147]
> # in the subject line of all future correspondence
about this issue. 
> # <URL: h
ttp://rt.perl.org/rt3/Ticket/Display.html?id=41147 >
> 
> 
> This is a bug report for perl from rootbps2.jodocus.org,
> generated with the help of perlbug 1.35 running under
perl v5.8.8.

Rafael fixed this with patch #29546 in the development
version:

29546 on 2006/12/13 by rgsstencil

	Subject: [PATCH] t/op/groups.t: prevent failure on modern
FreeBSDs
	From: Anton Berezin <tobeztobez.org>
	Date: Tue, 12 Dec 2006 19:59:38 +0100
	Message-ID: <20061212185938.GB49084heechee.tobez.org>

> groups.t states:
> ===========
> # That is, we might meet the following:
> #
> # foo bar zot				# accept
> # foo 22 42 bar zot			# accept
> # 1 22 42 2 3				# reject
> # groups=(42),foo(1),bar(2),zot me(3)	# parse
> # groups=22,42,1(foo),2(bar),3(zot me)	# parse
> #
> # and the groups= might be after, before, or between
uid=... and gid=...
> ===========
> 
> FreeBSD 6.2's `id -a` produces:
> 
> uid=0(root) gid=0(wheel) groups=0(wheel), 5(operator)
> 
> The extra space after the comma makes test 1 fail.
Previous
> versions of FreeBSD didn't support the -a flag for
id(1), so
> -Gn was used instead.

-- 
H.Merijn Brand         Amsterdam Perl Mongers (http://amsterdam.pm.org/
)
using & porting perl 5.6.2, 5.8.x, 5.9.x   on HP-UX
10.20, 11.00, 11.11,
& 11.23, SuSE 10.0 & 10.1, AIX 4.3 & 5.2, and
Cygwin. http://qa.perl.org
http://mirrors.de
velooper.com/hpux/            http://www.test-smoke.org
                        http
://www.goldmark.org/jeff/stupid-disclaimers/
[1-2]

about | contact  Other archives ( Real Estate discussion Medical topics )