[Rt-commit] rt branch, 4.0/digest-sha1-fix, created. rt-4.0.1-120-g77bf56f

[? sunnavy]

The branch, 4.0/digest-sha1-fix has been created
        at  77bf56f3ecec128a2fa31d2300f805541874f6c5 (commit)

- Log -----------------------------------------------------------------
commit 77bf56f3ecec128a2fa31d2300f805541874f6c5
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Thu Jul 7 16:32:43 2011 +0800

    Digest::SHA is in our dep list but Digest::SHA1 is not

diff --git a/lib/RT/CurrentUser.pm b/lib/RT/CurrentUser.pm
index 57ee1eb..4ecf307 100644
--- a/lib/RT/CurrentUser.pm
+++ b/lib/RT/CurrentUser.pm
@@ -291,12 +291,12 @@ sub Authenticate {
     my ($self, $password, $created, $nonce, $realm) = @_;
 
     require Digest::MD5;
-    require Digest::SHA1;
+    require Digest::SHA;
     require MIME::Base64;
 
     my $username = $self->UserObj->Name or return;
     my $server_pass = $self->UserObj->__Value('Password') or return;
-    my $auth_digest = MIME::Base64::encode_base64(Digest::SHA1::sha1(
+    my $auth_digest = MIME::Base64::encode_base64(Digest::SHA::sha1(
         $nonce .
         $created .
         Digest::MD5::md5_hex("$username:$realm:$server_pass")

-----------------------------------------------------------------------