From 39b27f39c4a0b06c34f1543ff3abf91bf6262f5d Mon Sep 17 00:00:00 2001
From: Martin Kamerbeek <martin@martintwee.oqapi.nl>
Date: Fri, 7 May 2010 11:47:33 +0200
Subject: [PATCH] Don't sort strings with numeric comparison operator...

---
 lib/WebGUI/Mailing.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Mailing.pm b/lib/WebGUI/Mailing.pm
index 47ed537..43d415a 100644
--- a/lib/WebGUI/Mailing.pm
+++ b/lib/WebGUI/Mailing.pm
@@ -115,7 +115,7 @@ sub www_sendTestEmails {
 
     tie my %options, 'Tie::IxHash', (
         map     { $_->getId => $_->username . "(" . $_->get('email') . ")" }
-        sort    { $a->username <=> $b->username }
+        sort    { $a->username cmp $b->username }
         grep    { defined $_ }
         map     { WebGUI::User->new( $session, $_ ) }
                 @{ $userIds }