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 (file)
--- 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);