diff options
| author | Abigail <abigail@abigail.be> | 2000-08-28 20:00:01 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-29 14:02:01 +0000 |
| commit | 23db111ccdc70864a847ae867a2113d49c7fae92 (patch) | |
| tree | 5cfda1f390f85a56c63b3e47020cb874614a886a /ext | |
| parent | f4fc778265a1b896cf1e2a3fa667837b80dedfd5 (diff) | |
| download | perl-23db111ccdc70864a847ae867a2113d49c7fae92.tar.gz | |
Warnings in B::Deparse
Message-ID: <20000829040001.2999.qmail@foad.org>
p4raw-id: //depot/perl@6880
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Deparse.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index c67ab432a4..d093fbbcd4 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); |