Front page | perl.perl5.porters |
Postings from September 2015
[perl #126185] /(?-p)/ should be an error
Thread Previous
|
Thread Next
From:
Victor ADAM
Date:
September 25, 2015 17:03
Subject:
[perl #126185] /(?-p)/ should be an error
Message ID:
rt-4.0.18-13427-1443200597-1093.126185-75-0@perl.org
# New Ticket Created by Victor ADAM
# Please include the string: [perl #126185]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=126185 >
This is a bug report for perl from victor.adam@derpymail.org,
generated with the help of perlbug 1.40 running under perl 5.23.4.
-----------------------------------------------------------------
[Please describe your issue here]
How to reproduce
----------------
> perl5.23.4 -e '/(?-p)/p; print defined for ${^MATCH}, ${^PREMATCH}, ${^POSTMATCH}'
Expected behavior
-----------------
Perl should die with the following diagnostic:
> Regexp modifier "p" may not appear after the "-" in regex; marked by <-- HERE in m/(?-p <-- HERE )/ at -e line 1.
Actual behavior
---------------
Perl terminates normally and prints:
> 111
The ${^MATCH} variables get defined, which proves that /p is still in effect.
This shows that (?-p) is completely ignored. This also goes against the
documentation, which says that only i, m, s and x can go on the right side of
the minus sign.
[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
category=core
severity=low
---
Site configuration information for perl 5.23.4:
Configured by grimy at Tue Sep 22 21:18:14 CEST 2015.
Summary of my perl5 (revision 5 version 23 subversion 4) configuration:
Commit id: 2d9b5f101563ac9fee41e6ca496f79db6222d2e3
Platform:
osname=linux, osvers=4.0.7-2-arch, archname=x86_64-linux
uname='linux localhost 4.0.7-2-arch #1 smp preempt tue jun 30
07:50:21 utc 2015 x86_64 gnulinux '
config_args='-ds -e -Dusedevel'
hint=recommended, useposix=true, d_sigaction=define
useithreads=undef, usemultiplicity=undef
use64bitint=define, use64bitall=define, uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-fwrapv -fno-strict-aliasing -pipe
-fstack-protector-strong -I/usr/local/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64',
optimize='-O2',
cppflags='-fwrapv -fno-strict-aliasing -pipe
-fstack-protector-strong -I/usr/local/include'
ccversion='', gccversion='5.1.0', gccosandvers=''
intsize=4, longsize=8, ptrsize=8, doublesize=8,
byteorder=12345678, doublekind=3
d_longlong=define, longlongsize=8, d_longdbl=define,
longdblsize=16, longdblkind=3
ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -fstack-protector-strong -L/usr/local/lib'
libpth=/usr/local/lib
/usr/lib/gcc/x86_64-unknown-linux-gnu/5.1.0/include-fixed /usr/lib
/lib/../lib /usr/lib/../lib /lib /lib64 /usr/lib64
libs=-lpthread -lnsl -lnm -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc
-lgdbm_compat
perllibs=-lpthread -lnsl -lnm -ldl -lm -lcrypt -lutil -lc
libc=libc-2.21.so, so=so, useshrplib=false, libperl=libperl.a
gnulibc_version='2.21'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
cccdlflags='-fPIC', lddlflags='-shared -O2 -L/usr/local/lib
-fstack-protector-strong'
---
@INC for perl 5.23.4:
/usr/local/lib/perl5/site_perl/5.23.4/x86_64-linux
/usr/local/lib/perl5/site_perl/5.23.4
/usr/local/lib/perl5/5.23.4/x86_64-linux
/usr/local/lib/perl5/5.23.4
/usr/local/lib/perl5/site_perl
.
---
Environment for perl 5.23.4:
HOME=/home/grimy
LANG=en_US.UTF-8
LANGUAGE (unset)
LD_LIBRARY_PATH (unset)
LOGDIR (unset)
PATH=/home/grimy/bin:/home/grimy/.nvim/scripts:/usr/local/sbin:/usr/local/bin:/usr/bin:/usr/lib/jvm/default/bin:/usr/bin/site_perl:/usr/bin/vendor_perl:/usr/bin/core_perl:/opt/plan9/bin
PERL_BADLANG (unset)
SHELL (unset)
Thread Previous
|
Thread Next