s/\B[aeiou]//g behavior differs from 5.004 and 5.005

[p5pRT]

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

Searchable as RT5880$

[p5pRT]

From alin@mpi.com

The following code​:

  my $s = "Looking for 2-bedroom apartment\n";
  $s =~ s/\B[aeiou]//g;
  print $s;

prints​: Lokng fr 2-bdrom aprtmnt

I believe the correct result should be​: Lkng fr 2-bdrm aprtmnt

Under 5.004_04 and 5.005, I get the correct result; under 5.6.0 I get
what I believe to be an incorrect result.

- Austin
  austin@​AL2.com

---

Flags​:
  category=core
  severity=medium

---

Site configuration information for perl v5.6.0​:

Configured by ryan at Wed Apr 12 15​:16​:10 EDT 2000.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration​:
  Platform​:
  osname=solaris, osvers=2.6, archname=sun4-solaris
  uname='sunos atlas 5.6 generic_105181-16 sun4u sparc sunw,ultra-enterprise '
  config_args='-Dprefix=/mpi/usr/build/perl/5.6.0'
  hint=recommended, useposix=true, d_sigaction=define
  usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
  useperlio=undef d_sfio=undef uselargefiles=define
  use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler​:
  cc='gcc', optimize='-O', gccversion=2.8.0
  cppflags=''
  ccflags =' -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
  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=16
  ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
  alignbytes=8, usemymalloc=y, prototype=define
  Linker and Libraries​:
  ld='gcc', ldflags =' '
  libpth=/lib /usr/lib /usr/ccs/lib
  libs=-lsocket -lnsl -ldl -lm -lc -lcrypt -lsec
  libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
  cccdlflags='-fPIC', lddlflags='-G'

Locally applied patches​:
 

---

@​INC for perl v5.6.0​:
  /usr/local/perl/lib
  /mpmx/lib/perl5/5.6.0/sun4-solaris
  /mpmx/lib/perl5/5.6.0
  /mpmx/lib/perl5/sun4-solaris
  /mpmx/lib/perl5
  /mpmx/lib/perl5/site_perl/5.6.0/sun4-solaris
  /mpmx/lib/perl5/site_perl/5.6.0
  /mpmx/lib/perl5/site_perl/sun4-solaris
  /mpmx/lib/perl5/site_perl
  /prod/ddm/lib/perl5/5.6.0/sun4-solaris
  /prod/ddm/lib/perl5/5.6.0
  /prod/ddm/lib/perl5/sun4-solaris
  /prod/ddm/lib/perl5
  /prod/ddm/perl/lib
  /mpi/usr/build/perl/5.6.0/lib/site_perl//5.6.0/sun4-solaris
  /mpi/usr/build/perl/5.6.0/lib/site_perl//5.6.0
  /mpi/usr/build/perl/5.6.0/lib/site_perl/
  /mpi/usr/build/perl/5.6.0/lib/5.6.0/sun4-solaris
  /mpi/usr/build/perl/5.6.0/lib/5.6.0
  /mpi/usr/build/perl/5.6.0/lib/site_perl/5.6.0/sun4-solaris
  /mpi/usr/build/perl/5.6.0/lib/site_perl/5.6.0
  /mpi/usr/build/perl/5.6.0/lib/site_perl
  .

---

Environment for perl v5.6.0​:
  HOME=/home/alin
  LANG (unset)
  LANGUAGE (unset)
  LD_LIBRARY_PATH=/mpi/shared/sybase/lib​:/usr/local/lib​:/usr/lib​:/usr/openwin/lib​:/opt/SUNWspro_4.2/lib​:/mpi/X11R6.3/lib​:/mpi/shared/sybase/lib​:/usr/local/lib​:/usr/lib​:/usr/openwin/lib​:/opt/SUNWspro_4.2/lib​:/mpi/X11R6.3/lib​:/usr/lib​:/usr/openwin/lib​:/opt/SUNWspro_4.2/lib​:/mpi/shared/sybase/lib​:/mpi/shared/oracle/app/oracle/product/8.1.6/lib​:/mpi/X11R6.3/lib​:/mpi/usr/lib​:/mpi/usr/lib
  LOGDIR (unset)
  PATH=/home/alin/local/bin​:/usr/ccs/bin​:/sbin​:/usr/sbin​:/mpi/usr/bin​:/opt/ssh/bin​:/usr/atria/bin​:/mpi/misc/bin​:/mpi/shared/bin​:/etc​:/usr/openwin/bin​:/usr/ccs/bin​:/usr/ccs/lib​:/usr/ucb​:/home/alin/local/bin​:/usr/ccs/bin​:/sbin​:/usr/sbin​:/mpi/usr/bin​:/opt/ssh/bin​:/usr/atria/bin​:/mpi/misc/bin​:/mpi/shared/bin​:/etc​:/usr/openwin/bin​:/usr/ccs/bin​:/usr/ccs/lib​:/usr/ucb​:/mpi/usr/bin​:/mpi/misc/bin​:/mpi/shared/bin​:/mpi/usr/bin​:/usr/bin​:/usr/sbin​:/etc​:/usr/openwin/bin​:/usr/ccs/bin​:/usr/ccs/lib​:.​:/usr/ucb​:/mpi/usr/bin​:/mpi/shared/bin​:/mpi/misc/bin​:/mpi/shared/sybase/bin​:/mpi/shared/oracle/app/oracle/product/8.1.6/bin​:/home/alin/bin​:/mpi/X11R6.3/bin
  PERL5LIB=/usr/local/perl/lib​:/mpmx/lib/perl5​:/mpmx/lib/perl5/site_perl​:/prod/ddm/lib/perl5​:/prod/ddm/perl/lib​:/mpi/usr/build/perl/5.6.0/lib/site_perl/
  PERL_BADLANG (unset)
  SHELL=/bin/bash

[p5pRT]

From perl@tmtm.com

This bug persisted in 5.6.1, but seems to have been a duplicate of
20010426.002
(http​://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2001-04/msg01639.html)
which was fixed by Hugo (with regression test) in change 9911 for 5.8

[p5pRT]

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