[perl #133782] length($^R) sometimes wrong

# New Ticket Created by  Hauke D 
# Please include the string:  [perl #133782]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=133782 >


Hi everyone,

This oneliner fails, when it most likely shouldn't:

  perl -e 'while( "\N{U+E4}bc" =~ /(..?)(?{$^N})/g )
           { length($^R)==length("$^R") or die }'

A slightly longer test program (attached) shows that on the second 
iteration, length($^R) is reporting 2 instead of the expected 1. It 
seems to have something to do with UTF8 strings, since it works fine on 
non-UTF8 strings.

Tested on several versions of Perl on Linux and Windows (down to 5.8.9).

Regards,
-- Hauke D

• [perl #133782] length($^R) sometimes wrong by Tony Cook via RT
• [perl #133782] length($^R) sometimes wrong by Tony Cook via RT
• Re: [perl #133782] length($^R) sometimes wrong by Hauke D
• [perl #133782] length($^R) sometimes wrong by James E Keenan via RT
• Re: [perl #133782] length($^R) sometimes wrong by Hauke D
• [perl #133782] length($^R) sometimes wrong by James E Keenan via RT
• [perl #133782] length($^R) sometimes wrong by Hauke D