From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 1 Dec 2010 17:42:39 +0000 (+0100)
Subject: note about oid_lex_sort
X-Git-Url: http://git.rot13.org/?p=snmp-json.git;a=commitdiff_plain;h=9c6b66d58c7ae5a2061062f96c8e421ac78b14f3

note about oid_lex_sort
---

diff --git a/printer-callbacks.pl b/printer-callbacks.pl
index f173530..30b0a72 100755
--- a/printer-callbacks.pl
+++ b/printer-callbacks.pl
@@ -47,6 +47,7 @@ sub columns_cb {
 
 	warn "# $oid $name var_bind_list ", dump( $session->var_bind_list );
 	my $results = $session->var_bind_list;
+	# oid_lex_sort would be wonderfull to use here, but it doesn't work
 	foreach my $r_oid ( sort {
 			my ($af,$bf) = ($a,$b);
 			$af =~ s{\.(\d+)$}{sprintf("%03d",$1)}eg;