Re: [perl #24704] oldest bug in current perl? (Regex replace looses chars)

If I rewrite the test to not use chr() but something that existed in
perl4, say

  $_="65x";         s/65/$_-65/e; $res1 = $_;
  $_="x65x"; s/x//; s/65/$_-65/e; $res2 = $_;
  print $res1 eq $res2 ? "ok\n" : "not ok res1[$res1]res2[$res2]\n";

then I see the same result in perl4 as in bleed:

  not ok res1[0x]res2[0]

-- 
andreas

• [perl #24704] Regex replace looses chars by perlbug-followup
• [PATCH] Re: [perl #24704] Regex replace looses chars by Marty Pauley
• Re: [PATCH] Re: [perl #24704] Regex replace looses chars by Nicholas Clark
• Re: [PATCH] Re: [perl #24704] Regex replace looses chars by Marty Pauley
• Re: [PATCH] Re: [perl #24704] Regex replace looses chars by Nicholas Clark
• Re: [perl #24704] Regex replace looses chars by SADAHIRO Tomoyuki
• Re: [perl #24704] Regex replace looses chars by SADAHIRO Tomoyuki
• Re: [perl #24704] oldest bug in current perl? (Regex replace looses chars) by Andreas J Koenig
• Re: [perl #24704] Regex replace looses chars by Tels