1N/A# B::Deparse.pm
1N/A# comp/assertions 38 - disabled assertions should be like "my($x) if 0"
1N/A print q(BEGIN { $^I = ).perlstring($^I).qq(; }\n);
1N/A if ($real_block) {
1N/Amy %globalnames;
1N/A my $warning_bits;
1N/A $warning_bits = undef;
1N/A if (defined ($warning_bits) and
1N/Amy @threadsv_names;
1N/Amy %matchwords;
1N/Amy %substwords;