diff options
| author | Robin Houston <robin@cpan.org> | 2001-04-23 13:38:20 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-23 13:21:55 +0000 |
| commit | 0e7fe0f0b7f687ba82b55cd0fd554daefd1aad62 (patch) | |
| tree | 70a246dea4f2ed8b8cdadb195289017c41ed172f /ext/B | |
| parent | d4fa047a051374faa98620c5276b30fcac4657e7 (diff) | |
| download | perl-0e7fe0f0b7f687ba82b55cd0fd554daefd1aad62.tar.gz | |
Deparse nit
Message-ID: <20010423123820.A19945@puffinry.freeserve.co.uk>
p4raw-id: //depot/perl@9790
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/Deparse.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 7791dd7a86..e9f47f7c9f 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -244,7 +244,10 @@ sub next_todo { $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); } @@ -323,7 +326,7 @@ sub begin_is_use { # 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 ""; } |