diff options
Diffstat (limited to 'xpp/utils/zconf/Zaptel/Xpp.pm')
| -rw-r--r-- | xpp/utils/zconf/Zaptel/Xpp.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/xpp/utils/zconf/Zaptel/Xpp.pm b/xpp/utils/zconf/Zaptel/Xpp.pm index 28de49d..ff0008a 100644 --- a/xpp/utils/zconf/Zaptel/Xpp.pm +++ b/xpp/utils/zconf/Zaptel/Xpp.pm @@ -23,6 +23,10 @@ sub by_connector { return $a->connector cmp $b->connector; } +sub by_serial { + return $a->serial cmp $b->serial; +} + sub xbuses { my $optsort = shift || 'SORT_NAME'; my @xbuses; @@ -46,6 +50,8 @@ sub xbuses { $sorter = \&by_connector; } elsif($optsort eq "SORT_NAME") { $sorter = \&by_name; + } elsif($optsort eq "SORT_SERIAL") { + $sorter = \&by_serial; } elsif(ref($optsort) eq 'CODE') { $sorter = $optsort; } else { |