Warnings in B::Deparse
authorAbigail <abigail@abigail.be>
Tue, 29 Aug 2000 00:00:01 +0000 (20:00 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 29 Aug 2000 14:02:01 +0000 (14:02 +0000)
Message-ID: <20000829040001.2999.qmail@foad.org>

p4raw-id: //depot/perl@6880

ext/B/B/Deparse.pm

index c67ab43..d093fbb 100644 (file)
@@ -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);