From: Robin Houston <robin@cpan.org>
Date: Thu, 5 Apr 2001 20:56:48 +0000 (+0100)
Subject: suppress "unintialized value" warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=793e2a70013bc23954e40bce02eca6d093caef68;p=p5sagit%2Fp5-mst-13.2.git

suppress "unintialized value" warnings
Message-ID: <20010405205648.A16814@puffinry.freeserve.co.uk>

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

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 49c0436..d08ccac 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -350,6 +350,10 @@ sub new {
     $self->{'cuddle'} = "\n";
     $self->{'indent_size'} = 4;
     $self->{'use_tabs'} = 0;
+    $self->{'expand'} = 0;
+    $self->{'unquote'} = 0;
+    $self->{'linenums'} = 0;
+    $self->{'parens'} = 0;
     $self->{'ex_const'} = "'???'";
     while (my $arg = shift @_) {
 	if (substr($arg, 0, 2) eq "-u") {