/imsx not visible inside (??{})

[p5pRT]

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

Searchable as RT6353$

[p5pRT]

From [email protected]

---

$ perl -le 'print "not ok" if "a\n"!/.(??{"."})/s'
not ok
$ perl -le 'print "not ok" if "aA"!/a(??{"a"})/i'
not ok

etc. Same thing with /(?i​:a(??{"a"})/.

At the time that (??{}) is compiled (during execution of the entire
regexp) I don't think the information that the whole regexp was
compiled under modifiers is available so this is not really surprising.
But the resulting behaviour will probably surprise people anyway.

Do we need a (??imsx-imsx{}) shorthand for
(??{"(?imsx-imsx​:" . RE . ")"}) that we can convert the above nodes to
at regexp compilation?

Or do we just hackishly convert them to (??{"(?imsx-imsx​:" . RE . ")"})?

Or do we document that modifiers aren't visible inside (??{})?

--
Rick Delaney
rick@​consumercontact.com

---

---

Flags​:
  category=core
  severity=low

---

Site configuration information for perl v5.6.0​:

Configured by rick at Wed Apr 26 16​:08​:10 EDT 2000.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration​:
  Platform​:
  osname=linux, osvers=2.2.10, archname=i586-linux
  uname='linux pgress.consumercontact.com 2.2.10 #1 smp tue aug 10 19​:01​:45 mdt 1999 i586 unknown '
  config_args='-Doptimize=-g'
  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='cc', optimize='-g', gccversion=egcs-2.91.66 19990314 (egcs-1.1.2 release)
  cppflags='-DDEBUGGING -fno-strict-aliasing'
  ccflags ='-DDEBUGGING -fno-strict-aliasing -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
  stdchar='char', d_stdstdio=define, usevfork=false
  intsize=4, longsize=4, ptrsize=4, doublesize=8
  d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
  ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
  alignbytes=4, usemymalloc=n, prototype=define
  Linker and Libraries​:
  ld='cc', ldflags =' -L/usr/local/lib'
  libpth=/usr/local/lib /lib /usr/lib
  libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lposix -lcrypt
  libc=/lib/libc-2.1.1.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
  cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Locally applied patches​:

---

@​INC for perl v5.6.0​:
  /usr/local/lib/perl5/5.6.0/i586-linux
  /usr/local/lib/perl5/5.6.0
  /usr/local/lib/perl5/site_perl/5.6.0/i586-linux
  /usr/local/lib/perl5/site_perl/5.6.0
  /usr/local/lib/perl5/site_perl
  .

---

Environment for perl v5.6.0​:
  HOME=/home1/rick
  LANG (unset)
  LANGUAGE (unset)
  LD_LIBRARY_PATH (unset)
  LOGDIR (unset)
  PATH=/bin​:/usr/bin​:/usr/local/bin
  PERL_BADLANG (unset)
  SHELL=/bin/bash