[perl #113088] Data::Dumper::Useqq('utf8') broken [PATCH]

On Thu Jun 07 17:06:44 2012, doy@tozt.net wrote:
> As for vec(), it seems like it should probably forcibly downgrade its
> first argument.

It already does.  It’s just misdocumented.

$ perl -e '$x = "\xff"; utf8::upgrade($x); use Devel::Peek; Dump $x;
vec($x,0,1) = vec($x,0,1); Dump $x'
SV = PV(0x801838) at 0x826d80
  REFCNT = 1
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x2011e0 "\303\277"\0 [UTF8 "\x{ff}"]
  CUR = 2
  LEN = 3
SV = PV(0x801838) at 0x826d80
  REFCNT = 2
  FLAGS = (POK,pPOK)
  PV = 0x2011e0 "\377"\0
  CUR = 1
  LEN = 3

-- 

Father Chrysostomos


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

• [perl #113088] Data::Dumper::Useqq('utf8') broken [PATCH] by Jim Avera
• Re: [perl #113088] Data::Dumper::Useqq('utf8') broken [PATCH] by demerphq
• Re: [perl #113088] Data::Dumper::Useqq('utf8') broken [PATCH] by Aristotle Pagaltzis
• Re: [perl #113088] Data::Dumper::Useqq('utf8') broken [PATCH] by demerphq
• Re: [perl #113088] Data::Dumper::Useqq('utf8') broken [PATCH] by demerphq
• Re: [perl #113088] Data::Dumper::Useqq('utf8') broken [PATCH] by Jesse Luehrs
• Re: [perl #113088] Data::Dumper::Useqq('utf8') broken [PATCH] by demerphq
• Re: [perl #113088] Data::Dumper::Useqq('utf8') broken [PATCH] by Jesse Luehrs
• [perl #113088] Data::Dumper::Useqq('utf8') broken [PATCH] by Father Chrysostomos via RT
• proposed/drafted new perl docs by Uri Guttman
• Re: proposed/drafted new perl docs by Ricardo Signes
• Re: proposed/drafted new perl docs by Nicholas Clark