From e73392763c011dade12dde89a5b723138794cc55 Mon Sep 17 00:00:00 2001 From: Tzafrir Cohen Date: Mon, 25 May 2009 02:20:35 +0300 Subject: fix assign_append of multi-line value The output of _format_convert() was used in a scalar context in _do_append. This caused arrays or hashes (after being successfully dereferenced) to be listed simply as the number of items. --- lib/Asterisk/config.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib') diff --git a/lib/Asterisk/config.pm b/lib/Asterisk/config.pm index 01211b8..14a386b 100755 --- a/lib/Asterisk/config.pm +++ b/lib/Asterisk/config.pm @@ -544,7 +544,7 @@ my @NEW; if (defined $section_name && $one_case->{'section'} eq $section_name && $one_case->{'point'} eq 'up') { push(@NEW,&_format_convert($one_case->{'data'})); $auto_save=1; } elsif (defined $section_name && $one_case->{'section'} eq $section_name && $one_case->{'point'} eq 'down') { - push(@NEW,$one_line); $one_line=&_format_convert($one_case->{'data'}); $auto_save=1; + push(@NEW,$one_line); $one_line = join "\n", &_format_convert($one_case->{'data'}); $auto_save=1; # for foot matched section } elsif (defined $section_name && $one_case->{'section'} eq $section_name && $one_case->{'point'} eq 'foot') { $save_tmpmem=1; @@ -554,7 +554,7 @@ my @NEW; # for foot 发现匹配的section已经到达整个结尾 } if ($save_tmpmem == 1 && $offset==$#{$data}) { - push(@NEW,$one_line); $one_line=&_format_convert($one_case->{'data'}); + push(@NEW,$one_line); $one_line = join "\n", &_format_convert($one_case->{'data'}); $auto_save=1; $save_tmpmem=0; } -- cgit v1.2.3