[ID 19991223.003] AIX split bug

This is a bug report for perl from xv88773@spnsp05,
generated with the help of perlbug 1.26 running under perl 5.00502.


-----------------------------------------------------------------
[Please enter your report here]

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?

[Please do not change anything below this line]
-----------------------------------------------------------------

---
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

• [ID 19991223.003] AIX split bug by Thomas.Schmitt
• Re: [ID 19991223.003] AIX split bug by David Hayes
• Re: [ID 19991223.003] AIX split bug by John L. Allen
• Smoke [5.9.0] 19606 PASS freebsd 5.0-release (i386/1 cpu) by kane