--- perl_ldap.orig	2007-10-20 22:30:33.000000000 +0000
+++ perl_ldap	2007-10-20 22:30:52.000000000 +0000
@@ -401,7 +401,7 @@
     $msg = $ldap->search( filter => "(uid=$uid)", base => $basedn ) if $uid;
     $msg->code && warn "error: ", $msg->error;
 
-    @msg = $msg->entries;
+    @msg = $msg->sorted;
 
     my $userinfo = '<?xml version="1.0" encoding="utf-8"?>'."\n";
     $userinfo .='<?xml-stylesheet href="/proj/en/devrel/roll-call/userinfo.xsl" type="text/xsl"?>'."\n";