summaryrefslogtreecommitdiffstats
path: root/knetworkconf/backends/parse.pl.in
diff options
context:
space:
mode:
Diffstat (limited to 'knetworkconf/backends/parse.pl.in')
-rw-r--r--knetworkconf/backends/parse.pl.in10
1 files changed, 5 insertions, 5 deletions
diff --git a/knetworkconf/backends/parse.pl.in b/knetworkconf/backends/parse.pl.in
index 25c9373..0a02012 100644
--- a/knetworkconf/backends/parse.pl.in
+++ b/knetworkconf/backends/parse.pl.in
@@ -1451,12 +1451,12 @@ sub gst_parse_xml
sub gst_parse_xml_child_names
{
my ($file, $varpath) = @_;
- my ($model, $branch, @children);
+ my ($model, $branch, @tqchildren);
($model) = &gst_xml_model_scan ($file);
$branch = &gst_xml_model_find ($model, $varpath);
- if (!$branch) { return @children; }
+ if (!$branch) { return @tqchildren; }
my @list = @$branch;
shift @list; # Attributes
@@ -1465,7 +1465,7 @@ sub gst_parse_xml_child_names
{
if ($list [0] ne "__unparsed__" && $list [0] ne "0")
{
- push @children, shift @list;
+ push @tqchildren, shift @list;
}
else
{
@@ -1475,7 +1475,7 @@ sub gst_parse_xml_child_names
shift @list;
}
- return @children;
+ return @tqchildren;
}
sub gst_parse_alchemist
@@ -1505,7 +1505,7 @@ sub gst_parse_alchemist_print_option
return undef if (!$branch);
- $options = &gst_xml_model_get_children ($branch);
+ $options = &gst_xml_model_get_tqchildren ($branch);
foreach $o (@$options)
{