develooper Front page | perl.perl5.porters | Postings from December 2006

[perl #6006] Regexp replaces using large replacement variables fail some of

Thread Previous | Thread Next
From:
Rafael Garcia-Suarez via RT
Date:
December 23, 2006 08:17
Subject:
[perl #6006] Regexp replaces using large replacement variables fail some of
Message ID:
rt-3.6.HEAD-1774-1166890670-260.6006-14-0@perl.org
Change #29619 fixes this bug for taint mode too. However, I don't
understand why ${10} isn't compiled to the same optree with -T and without:

[rafael@inv75-3-82-241-119-67 p4blead]$ ./perl -Ilib -MO=Concise -e
'print ${10}'
7  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 2 -e:1) v:{ ->3
6     <@> print vK ->7
3        <0> pushmark s ->4
5        <1> rv2sv sK/1 ->6
-           <@> scope sK ->5
-              <0> ex-nextstate v ->4
4              <$> const(IV 10) s ->5
-e syntax OK
[rafael@inv75-3-82-241-119-67 p4blead]$ ./perl -TIlib -MO=Concise -e
'print ${10}'
a  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 2 -e:1) v:{ ->3
9     <@> print vK ->a
3        <0> pushmark s ->4
8        <1> rv2sv sK/1 ->9
7           <@> leave sK ->8
4              <0> enter s ->5
5              <;> nextstate(main 1 -e:1) v ->6
6              <$> const(IV 10) s ->7
-e syntax OK


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