From: Robin Houston <robin@cpan.org>
Date: Mon, 23 Apr 2001 12:38:20 +0000 (+0100)
Subject: Deparse nit
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0e7fe0f0b7f687ba82b55cd0fd554daefd1aad62;p=p5sagit%2Fp5-mst-13.2.git

Deparse nit
Message-ID: <20010423123820.A19945@puffinry.freeserve.co.uk>

p4raw-id: //depot/perl@9790
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 7791dd7..e9f47f7 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 "";
     }