What i'm missing? What is happening?

A peek at Dumper.pm reveals that line is return &Dumpxs and thats all like XS and stuff :) so its a bug in the XS version I reckon so you can perlbug it

Data::Dump doesn't warn about it ... of course it doesn't deparse

do {
  my $a = { a => sub { ... }, original_a => 'fix' };
  $a->{original_a} = $a->{a};
  $a;
}
[download]

Data::Dump::Streamer Deparse-s fine

$HASH1 = {
           a      => sub {
                       use warnings;
                       use strict;
                       print "AAA\n";
                     },
           original_a
                  => 'V: $HASH1->{a}'
         };
$HASH1->{original_a} = $HASH1->{a};
[download]

Bug #122111 for perl5: Data::Dumper vul'n reported