AIX split bug

[p5pRT]

Migrated from rt.perl.org#1935 (status was 'resolved')

Searchable as RT1935$

[p5pRT]

From Thomas.Schmitt@ruv.de

Consider the following program.

#!/bin/perl
$a='3-2=1';
print join('​:', split /-|=/, $a),
  "\n",
  join('​:', split /=|-/, $a);

Under Linux and Win NT (version 5.001, MS port of perl), this prints
what it should​:

3​:2​:1
3​:2​:1

But under AIX, it behaves buggy​:

3​:2=1
3​:2​:1

This was tested with

AIX 4.3.2.0
  Version 5.005_02 built for aix
  Version 5.005_03 built for aix

and

AIX 4.2.1.0
  Version 5.005_02

It comes rather unexpected that the results of pure string manipulation
ae OS dependent. Perhaps, there is a problem with the libc?

Perl Info

Site configuration information for perl 5.00502:

Configured by root at Thu Nov 26 14:24:47 NFT 1998.

Summary of my perl5 (5.0 patchlevel 5 subversion 2) configuration:
  Platform:
    osname=aix, osvers=4.1.5.0, archname=aix
    uname='aix esther 1 4 00920517a000 '
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
  Compiler:
    cc='cc', optimize='-O', gccversion=
    cppflags='-D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE -qmaxmem=8192
-I/usr/local/include'
    ccflags ='-D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE -qmaxmem=8192
-I/usr/local/include'
    stdchar='unsigned char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=8
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='ld', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib
    libs=-ldbm -ldb -ldl -lld -lm -lc -lbsd -lPW
    libc=/lib/libc.a, so=a, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_aix.xs, dlext=so, d_dlsymun=undef, ccdlflags='-bE:perl.exp'
    cccdlflags=' ', lddlflags='-bhalt:4 -bM:SRE -bI:$(PERL_INC)/perl.exp
-bE:$(BASEEXT).exp -b noentry -lc -L/usr/local/lib'

Locally applied patches:
    


@INC for perl 5.00502:
    /usr/local/lib/perl5/5.00502/aix
    /usr/local/lib/perl5/5.00502
    /usr/local/lib/perl5/site_perl/5.005/aix
    /usr/local/lib/perl5/site_perl/5.005
    .


Environment for perl 5.00502:
    HOME=/home/xv88773
    LANG=en_US
    LC__FASTMSG=true
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
 
PATH=/apps/CCM/ccm/bin:/usr/bin/X11:/apps/oracle/product/7344/bin:/apps/orac
le/product/7344/obackup/bin:/apps/oracle/bin:/apps/CCM/ccm/bin:/usr/bin/X11:
/apps/oracle/product/7344/bin:/apps/oracle/product/7344/obackup/bin:/apps/or
acle/bin:/apps/CCM/ccm/bin:/usr/bin/X11:/apps/oracle/product/7344/bin:/apps/
oracle/product/7344/obackup/bin:/apps/oracle/bin:/apps/CCM/ccm/bin:/usr/bin/
X11:/apps/oracle/product/7344/bin:/apps/oracle/product/7344/obackup/bin:/app
s/oracle/bin:/apps/CCM/ccm/bin:/usr/bin/X11:/apps/oracle/product/7344/bin:/a
pps/oracle/product/7344/obackup/bin:/apps/oracle/bin:/apps/Tivoli/bin/aix4-r
1/bin:/apps/Tivoli/bin/aix4-r1/ADE:/apps/Tivoli/bin/aix4-r1/AEF:/apps/Tivoli
/bin/aix4-r1/kerberos:/bin:/usr/bin:/usr/local/bin:/home/xv88773/bin:.:/prj/
bin:/apps/bin:/apps/etc:/home/xv88773/bin:.:/usr/sbin:/usr/OV/bin
    PERL_BADLANG (unset)
    SHELL=/usr/bin/ksh

[p5pRT]

From [Unknown Contact. See original ticket]

Thanks for the bug report, but I see no problem with perl5.005_03 on AIX
4.3.2 here. (And BTW, your perl -V output was reporting AIX 4.1.5.)

John.
--
# perl -V
Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration​:
  Platform​:
  osname=aix, osvers=4.3.2.0, archname=aix
  uname='aix bemwi606 3 4 003555734c00 '
  hint=recommended, useposix=true, d_sigaction=define
  usethreads=undef useperlio=undef d_sfio=undef
  Compiler​:
  cc='cc', optimize='-O', gccversion=
  cppflags='-D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE -qmaxmem=8192'
  ccflags ='-D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE -qmaxmem=8192'
  stdchar='unsigned char', d_stdstdio=define, usevfork=false
  intsize=4, longsize=4, ptrsize=4, doublesize=8
  d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=8
  alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries​:
  ld='ld', ldflags =''
  libpth=/lib /usr/lib /usr/ccs/lib
  libs=-lnsl -ldbm -ldl -lld -lm -lc -lcrypt -lbsd -lPW
  libc=, so=a, useshrplib=false, libperl=libperl.a
  Dynamic Linking​:
  dlsrc=dl_aix.xs, dlext=so, d_dlsymun=undef, ccdlflags='-bE​:perl.exp'
  cccdlflags=' ', lddlflags='-bhalt​:4 -bM​:SRE -bI​:$(PERL_INC)/perl.exp
  -bE​:$(BASEEXT).exp -b noentry -lc'

[p5pRT]

From [Unknown Contact. See original ticket]

On Thu, 23 Dec 1999 Thomas.Schmitt@​ruv.de wrote​:

Consider the following program.

#!/bin/perl
$a='3-2=1';
print join('​:', split /-|=/, $a),
"\n",
join('​:', split /=|-/, $a);

But under AIX, it behaves buggy​:

3​:2=1
3​:2​:1

This works fine for me on all of the RS6000's that I have access to​: one
with 5.003_2 and AIX 4.2.1, one with 5.003_3 and AIX 4.2.1, and one with
5.003_3 and AIX 4.3.2.

--david