Changeset a8c55b5 for perl/modules/Jabber/lib/Net/Jabber/Component.pm

Timestamp:

Sep 9, 2012, 6:26:12 PM (12 years ago)

Author:

David Benjamin <davidben@mit.edu>

Branches:

master, release-1.10, release-1.9

Children:

736835d, 54d9b42

Parents:

4d9e311c

Message:

Use Digest::SHA in Jabber module instead of Digest::SHA1

The cool kids spell it without the 1 these days. More precisely,
Digest::SHA1 no longer exists in precise. Also it's in perl itself these
days.

(We can just install Digest::SHA into the locker for the sysnames that
need it.)

File:

• perl/modules/Jabber/lib/Net/Jabber/Component.pm (modified) (1 diff)

perl/modules/Jabber/lib/Net/Jabber/Component.pm

@@ -220 +220 @@
     $self->{STREAM}->SetCallBacks(node=>undef);
 
-    $self->Send("<handshake>".Digest::SHA1::sha1_hex($self->{SESSION}->{id}.$args{secret})."</handshake>");
+    $self->Send("<handshake>".Digest::SHA::sha1_hex($self->{SESSION}->{id}.$args{secret})."</handshake>");
     my $handshake = $self->Process();