11 load_or_skip('B::Deparse', undef, [ ],
12 'required to test round-trip deparsing compatibility');
16 my $bd = B::Deparse->new;
19 no autovivification qw<fetch strict>;
21 sub blech { my $key = $_[0]->{key} }
27 like $@, qr/Reference vivification forbidden/, 'Original blech() works';
31 my $code = $bd->coderef2text(\&blech);
33 eval "$code; blech(\$undef)";
34 like $@, qr/Reference vivification forbidden/, 'Deparsed blech() works';