X-Git-Url: http://git.rot13.org//?a=blobdiff_plain;f=printer-callbacks.pl;h=30b0a7255e9bb0db1d249effdb7876aff1c95375;hb=9c6b66d58c7ae5a2061062f96c8e421ac78b14f3;hp=f17353015dcaebc3dc2d77648016b6fddffa7433;hpb=cc8da7199ac7b19e9dca9024646033e291b5530c;p=snmp-json.git

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;