Remove additional unneeded tq method conversions

1 files changed, 9 insertions, 9 deletions

diff --git a/knetworkconf/backends/replace.pl.in b/knetworkconf/backends/replace.pl.in
index 8114f19..a72e3ef 100644
--- a/knetworkconf/backends/replace.pl.in
+++ b/knetworkconf/backends/replace.pl.in
@@ -1457,22 +1457,22 @@ sub gst_replace_alchemist_ensure_list_types
   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;
         &gst_xml_model_set_attribute ($branch, "TYPE", "LIST");
         last;
       }
 
-      shift @tqchildren;
-      shift @tqchildren;
+      shift @children;
+      shift @children;
     }
 
     last if ($branch == undef);
@@ -1532,7 +1532,7 @@ sub gst_replace_alchemist_print_option
 
   # See if option is already defined.
 
-  $options = &gst_xml_model_get_tqchildren ($branch);
+  $options = &gst_xml_model_get_children ($branch);
 
   foreach $o (@$options)
   {