What steps will reproduce the problem?
> perlcc -r -e 'no warnings "deprecated"; $a = q{abcdefxyz}; $[ = 1; print
qq{ok\n} if substr($a,1,3) eq q{abc};'
What is the expected output?
> perl -e 'no warnings "deprecated"; $a = q{abcdefxyz}; $[ = 1; print qq{ok\n}
if substr($a,1,3) eq q{abc};'
ok
Please use labels and text to provide additional information.
Original issue reported on code.google.com by nicolas....@gmail.com on 9 May 2014 at 8:56
Original issue reported on code.google.com by
nicolas....@gmail.com
on 9 May 2014 at 8:56