diff options
| author | An-Cheng Huang <ancheng@vyatta.com> | 2008-04-01 10:08:14 -0700 |
|---|---|---|
| committer | An-Cheng Huang <ancheng@vyatta.com> | 2008-04-01 10:08:14 -0700 |
| commit | 053d42ea27a5b89f0a19a09dd347bc37c6f07948 (patch) | |
| tree | a3074d7b712b6686b3d3a718cc9e72955ceaa132 /scripts | |
| parent | 1f35cd2755bd37986a7c5a7065f545f849126491 (diff) | |
| download | vyatta-cfg-053d42ea27a5b89f0a19a09dd347bc37c6f07948.tar.gz vyatta-cfg-053d42ea27a5b89f0a19a09dd347bc37c6f07948.zip | |
fix for bug 2689: sort tag nodes appropriately
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/VyattaConfigOutput.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/scripts/VyattaConfigOutput.pm b/scripts/VyattaConfigOutput.pm index b7c5499..2766b64 100755 --- a/scripts/VyattaConfigOutput.pm +++ b/scripts/VyattaConfigOutput.pm @@ -32,6 +32,7 @@ package VyattaConfigOutput; use strict; use lib '/opt/vyatta/share/perl5/'; use VyattaConfig; +use Sort::Versions; # whether to show default values my $show_all = 0; @@ -190,6 +191,7 @@ sub displayDeletedOrigChildren { $dont_show_as_deleted); } elsif (scalar($#cnames) >= 0) { if ($is_tag) { + @cnames = sort versioncmp @cnames; foreach my $cname (@cnames) { if ($cname eq 'node.val') { # should not happen @@ -244,6 +246,7 @@ sub displayChildren { displayValues([ @cur_path, $child ], $prefix, $child); } elsif (scalar($#cnames) >= 0) { if ($is_tag) { + @cnames = sort versioncmp @cnames; foreach my $cname (@cnames) { if ($cname eq 'node.val') { # should not happen |