develooper Front page | perl.perl5.porters | Postings from June 2013

[perl #114884] perl -le '$_="abcdefg123456"; s/(?<=...\G)?(\d)/($1)/; print'

Thread Next
From:
James E Keenan via RT
Date:
June 19, 2013 01:05
Subject:
[perl #114884] perl -le '$_="abcdefg123456"; s/(?<=...\G)?(\d)/($1)/; print'
Message ID:
rt-3.6.HEAD-2552-1371603914-648.114884-15-0@perl.org
On Sun Sep 16 05:27:27 2012, demerphq wrote:
> On 14 September 2012 09:37, Father Chrysostomos via RT
> <perlbug-followup@perl.org> wrote:
> > On Thu Sep 13 23:58:07 2012, hmbrand wrote:
> >> On Thu, 13 Sep 2012 23:08:58 +0200, demerphq <demerphq@gmail.com>
> >> wrote:
> >>
> >> > On 13 September 2012 19:14, Dean Inada via RT <perlbug-
> >> followup@perl.org> wrote:
> >> > > -----------------------------------------------------------------
> >> > > [Please describe your issue here]
> >> > >
> >> > > perl5.10.1 -le '$_="abcdefg123456"; s/(?<=...\G)?(\d)/($1)/;
> >> print'
> >> > > abcdefg(1)23456
> >> > >
> >> > > perl5.12.3 -le '$_="abcdefg123456"; s/(?<=...\G)?(\d)/($1)/;
> >> print'
> >> > > abcdefg(1)fg123456
> >> > >
> >> > > perl5.16.0 -le '$_="abcdefg123456"; s/(?<=...\G)?(\d)/($1)/;
> >> print'
> >> > > abcdefg(1)fg123456
> >> > >
> >> > > The result from 5.10.1 is what I expected
> >> > > I did not find mention of the change in perldelta
> >> >
> >> > Hmm. An optional lookbehind. Very strange. Nevertheless, that does
> >> > look like a bug.
> >> >
> >> > Hmm. Might be a good opportunity to try out the bisect code. :-)
> >>
> >> To give you a start …
> >>
> >> $ perl-all -le '$_="abcdefg123456"; s/(?<=...\G)?(\d)/($1)/; print'
> >> Running perl-all -le $_="abcdefg123456"; s/(?<=...\G)?(\d)/($1)/;
> >> print
> >
> >> === base/tperl5.10.0    5.010000 i686-linux-thread-multi-64int-ld
> >> abcdefg(1)23456
> >> === base/perl5.10.1     5.010001 i686-linux-64int
> >> abcdefg(1)23456
> >> === base/tperl5.10.1    5.010001 i686-linux-thread-multi-64int-ld
> >> abcdefg(1)23456
> >> === base/perl5.11.0     5.011000 i686-linux-64int
> >> abcdefg(1)fg123456
> >> === base/tperl5.11.0    5.011000 i686-linux-thread-multi-64int-ld
> >> abcdefg(1)fg123456
> >
> > Thank you.  That cuts down on the time it takes.
> >
> > This is how one uses the new bisect tools:
> >
> > $ ../perl.git/Porting/bisect.pl --start v5.10.0 --end v5.11.0
> > --target=miniperl -e '$_="abcdefg123456"; s/(?<=...\G)?(\d)/($1)/; die
> > if /\)fg/'
> >
> > ... 12000 lines skipped ...
> >
> > 2c2969659ae1c534e7f3fac9e7a7d186defd9943 is the first bad commit
> > commit 2c2969659ae1c534e7f3fac9e7a7d186defd9943
> > Author: Yves Orton <demerphq@gmail.com>
> > Date:   Thu Sep 10 19:28:20 2009 +0200
> >
> >     add more positive gofs GPOS tests and fix some bugs too
> >
> > :040000 040000 46b2905b5dcfb0b4cf9dcf450534782e0e8aef56
> > 9373ff129aabf07c9886117bdff0e1a2e02206ed M      ext
> > :100644 100644 4cde9f8854ad7435903143340313ff6a2d6d8703
> > e69bf0c8809aef998dfba694172fa31ab7e65d7e M      pp_ctl.c
> > :100644 100644 cd6a71a0ecddd1c1f2e7346c78010f2fcd1632be
> > 198961c2c3475553cd3ebe23bf08b16f66502036 M      regcomp.h
> > :100644 100644 56dfe121ab626dd8b95ec79e13e6d8dfbe94c78c
> > 8d9d171983b8cf431a42818fc88949365b675cbf M      regexec.c
> > :040000 040000 b125612826ea32454ff6eb98dcf18a988e08ad62
> > 503f8e39ae181269de90b812872a818c92e6e363 M      t
> > bisect run success
> > That took 478 seconds
> >
> > But the last line of output is missing a fullstop.
> 
> Patch to fix this pushed as smoke-me/rt_114884.
> 
> Waiting on reports before I merge it.
> 
> Yves
> 
> 


Yves,

Did the code get merged?  Is the ticket closable?

(I noticed that this smoke-me branch is still around:
origin/smoke-me/rt_114884.)

Thank you very much.
Jim Keenan

---
via perlbug:  queue: perl5 status: open
https://rt.perl.org:443/rt3/Ticket/Display.html?id=114884

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About