Changeset ea0c453 for perl/modules/Jabber/lib/Net/XMPP

Timestamp:

Sep 12, 2012, 7:53:56 PM (12 years ago)

Author:

Adam Glasgall <adam@crossproduct.net>

Branches:

master, release-1.10, release-1.9

Children:

96ee74c

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 pull request #100 from davidben/master

Use Digest::SHA in Jabber module instead of Digest::SHA1, since Digest::SHA1 has been abandoned and removed from distributions.

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);
     }