From: Abigail <abigail@abigail.be>
Date: Tue, 29 Aug 2000 00:00:01 +0000 (-0400)
Subject: Warnings in B::Deparse
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=23db111ccdc70864a847ae867a2113d49c7fae92;p=p5sagit%2Fp5-mst-13.2.git

Warnings in B::Deparse
Message-ID: <20000829040001.2999.qmail@foad.org>

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

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index c67ab43..d093fbb 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -2495,7 +2495,7 @@ sub pchr { # ASCII
 
 sub collapse {
     my(@chars) = @_;
-    my($c, $str, $tr);
+    my($str, $c, $tr) = ("");
     for ($c = 0; $c < @chars; $c++) {
 	$tr = $chars[$c];
 	$str .= pchr($tr);