$self->{'subs_declared'}{$name} = 1;
if ($name eq "BEGIN") {
my $use_dec = $self->begin_is_use($cv);
- return $use_dec if defined ($use_dec);
+ if (defined ($use_dec)) {
+ return () if 0 == length($use_dec);
+ return $use_dec;
+ }
}
return "sub $name " . $self->deparse_sub($cv);
}
# Certain pragmas are dealt with using hint bits,
# so we ignore them here
if ($module eq 'strict' || $module eq 'integer'
- || $module eq 'bytes') {
+ || $module eq 'bytes' || $module eq 'warnings') {
return "";
}
for (my $i=0; $i<@ns; ++$i) {
next if class($ns[$i]) eq "SPECIAL";
+ if (class($ns[$i]) eq "PV") {
+ # Probably that pesky lexical @_
+ next;
+ }
my $name = $ns[$i]->PVX;
my $seq_st = $ns[$i]->NVX;
my $seq_en = int($ns[$i]->IVX);