diff options
| author | Tzafrir Cohen <tzafrir@cohens.org.il> | 2009-05-31 02:24:14 +0300 |
|---|---|---|
| committer | Tzafrir Cohen <tzafrir@cohens.org.il> | 2009-05-31 02:24:14 +0300 |
| commit | 9e399fad788f48708591f55c0660f95ec8f43f5c (patch) | |
| tree | 6e57edec8c0011e783a0f514fbd0bd4e22498b87 | |
| parent | ee9bf937556617fdcfcb3722975132a306cef0be (diff) | |
fix a warning on append to unsection
If you want to append above the existing sections you need an empty
'section' parameter. Thus fix silences a warning in that case.
| -rw-r--r-- | lib/Asterisk/config.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Asterisk/config.pm b/lib/Asterisk/config.pm index 1943691..2bdd7e8 100644 --- a/lib/Asterisk/config.pm +++ b/lib/Asterisk/config.pm @@ -520,7 +520,7 @@ my $data = shift; my $class_self = shift; my @NEW; - if ($one_case->{'section'} eq '') { + if ((not exists $one_case->{'section'}) || ($one_case->{'section'} eq '')) { #Append data head of source data/foot of source data if ($one_case->{'point'} eq 'up') { push(@NEW,&_format_convert($one_case->{'data'}),@$data); |