1 files changed, 34 insertions, 34 deletions

diff --git a/knetworkconf/backends/xml.pl.in b/knetworkconf/backends/xml.pl.in
index cd2201c..b9810c6 100644
--- a/knetworkconf/backends/xml.pl.in
+++ b/knetworkconf/backends/xml.pl.in
@@ -352,34 +352,34 @@ sub gst_xml_model_print_recurse
   my ($tree, $indent) = @_;
   my ($string);
 
-  my @tqchildren = @$tree;
-  shift @tqchildren;  # Attributes
+  my @children = @$tree;
+  shift @children;  # Attributes
 
-  while (@tqchildren)
+  while (@children)
   {
-    my $branch = $tqchildren [1];
+    my $branch = $children [1];
 
-    if ($tqchildren [0] eq "__unparsed__")
+    if ($children [0] eq "__unparsed__")
     {
-      $string .= "<" . $tqchildren [1] . ">";
+      $string .= "<" . $children [1] . ">";
     }
-    elsif ($tqchildren [0] eq "0")
+    elsif ($children [0] eq "0")
     {
-      $string .= $tqchildren [1];
+      $string .= $children [1];
     }
     elsif (@$branch == 1)  # Empty tag.
     {
-      $string .= "<" . $tqchildren [0] . &gst_xml_model_print_attributes ($branch) . "/>";
+      $string .= "<" . $children [0] . &gst_xml_model_print_attributes ($branch) . "/>";
     }
     else
     {
-      $string .= "<" . $tqchildren [0] . &gst_xml_model_print_attributes ($branch) . ">";
+      $string .= "<" . $children [0] . &gst_xml_model_print_attributes ($branch) . ">";
       $string .= &gst_xml_model_print_recurse ($branch);
-      $string .= "</" . $tqchildren [0] . ">";
+      $string .= "</" . $children [0] . ">";
     }
 
-    shift @tqchildren;
-    shift @tqchildren;
+    shift @children;
+    shift @children;
   }
 
 #  if ($branch)
@@ -825,21 +825,21 @@ sub gst_xml_model_find
   for $elem (@path)
   {
     next if ($elem eq "");
-    my @tqchildren = @$branch;
-    shift @tqchildren;  # Attributes
+    my @children = @$branch;
+    shift @children;  # Attributes
     $branch = undef;
 
-    while (@tqchildren)
+    while (@children)
     {
-      if ($tqchildren [0] eq $elem)
+      if ($children [0] eq $elem)
       {
-        shift @tqchildren;
-        $branch = shift @tqchildren;
+        shift @children;
+        $branch = shift @children;
         last;
       }
 
-      shift @tqchildren;
-      shift @tqchildren;
+      shift @children;
+      shift @children;
     }
 
     last if ($branch == undef);
@@ -890,23 +890,23 @@ sub gst_xml_model_ensure
   {
     next if ($elem eq "");
 
-    my @tqchildren = @$branch;
+    my @children = @$branch;
     my $parent_branch = $branch;
 
-    shift @tqchildren;  # Attributes
+    shift @children;  # Attributes
     $branch = undef;
 
-    while (@tqchildren)
+    while (@children)
     {
-      if ($tqchildren [0] eq $elem)
+      if ($children [0] eq $elem)
       {
-        shift @tqchildren;
-        $branch = shift @tqchildren;
+        shift @children;
+        $branch = shift @children;
         last;
       }
 
-      shift @tqchildren;
-      shift @tqchildren;
+      shift @children;
+      shift @children;
     }
 
     if ($branch == undef)
@@ -950,22 +950,22 @@ sub gst_xml_model_remove
   return -1;
 }
 
-sub gst_xml_model_get_tqchildren
+sub gst_xml_model_get_children
 {
   my ($branch) = @_;
-  my (@tqchildren);
+  my (@children);
 
-  if (!$branch) { return \@tqchildren; }
+  if (!$branch) { return \@children; }
 
   for ($i = 1; $i < @$branch; $i += 2)
   {
     if (@$branch [$i] ne "__unparsed__" && @$branch [$i] ne "0")
     {
-      push @tqchildren, @$branch [$i + 1];
+      push @children, @$branch [$i + 1];
     }
   }
 
-  return \@tqchildren;
+  return \@children;
 }
 
 sub gst_xml_model_get_pcdata