diff options
| author | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2011-12-19 11:52:44 -0600 |
|---|---|---|
| committer | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2011-12-19 11:52:44 -0600 |
| commit | 6b7a8ff33a6383be4a9dea3c4225d142aab79b78 (patch) | |
| tree | 5350a439bb05233ff6ee4a4368cdd59de686c685 /knetworkconf/backends/replace.pl.in | |
| parent | b836ed566cdce05ae8408705487cd10a423f3a90 (diff) | |
| download | tdeadmin-6b7a8ff33a6383be4a9dea3c4225d142aab79b78.tar.gz tdeadmin-6b7a8ff33a6383be4a9dea3c4225d142aab79b78.zip | |
Remove additional unneeded tq method conversions
Diffstat (limited to 'knetworkconf/backends/replace.pl.in')
| -rw-r--r-- | knetworkconf/backends/replace.pl.in | 18 |
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) { |