Changeset 54d9b42 for perl/modules/Jabber/lib/Net/XMPP/Protocol.pm

Timestamp:

Sep 9, 2012, 6:30:07 PM (13 years ago)

Author:

David Benjamin <davidben@mit.edu>

Parents:

4d9e311c (diff), a8c55b5 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge a8c55b5229df5b40e00b717abd7f1f8fa52c18e2 into 4d9e311c006953157914f0491b8904e796ea3f19

File:

• perl/modules/Jabber/lib/Net/XMPP/Protocol.pm (modified) (2 diffs)

perl/modules/Jabber/lib/Net/XMPP/Protocol.pm

@@ -1849 +1849 @@
     if ($authType eq "zerok")
     {
-        my $hashA = Digest::SHA1::sha1_hex($password);
-        $args{hash} = Digest::SHA1::sha1_hex($hashA.$token);
+        my $hashA = Digest::SHA::sha1_hex($password);
+        $args{hash} = Digest::SHA::sha1_hex($hashA.$token);
 
         for (1..$sequence)
         {
-            $args{hash} = Digest::SHA1::sha1_hex($args{hash});
+            $args{hash} = Digest::SHA::sha1_hex($args{hash});
         }
     }
@@ -1868 +1868 @@
     if ($authType eq "digest")
     {
-        $args{digest} = Digest::SHA1::sha1_hex($self->GetStreamID().$password);
+        $args{digest} = Digest::SHA::sha1_hex($self->GetStreamID().$password);
     }