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

Timestamp:

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

Author:

David Benjamin <davidben@mit.edu>

Branches:

master, release-1.9

Children:

5f3f1e4, 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/Key.pm (modified) (2 diffs)

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

@@ -104 +104 @@
     $self->{CACHE} = {};
 
-    if (eval "require Digest::SHA1")
+    if (eval "require Digest::SHA")
     {
         $self->{DIGEST} = 1;
-        Digest::SHA1->import(qw(sha1 sha1_hex sha1_base64));
+        Digest::SHA->import(qw(sha1 sha1_hex sha1_base64));
     }
     else
     {
-        print "ERROR:  You cannot use Key.pm unless you have Digest::SHA1 installed.\n";
+        print "ERROR:  You cannot use Key.pm unless you have Digest::SHA installed.\n";
         exit(0);
     }
@@ -132 +132 @@
 
     my $string = $$.time.rand(1000000);
-    $string = Digest::SHA1::sha1_hex($string);
+    $string = Digest::SHA::sha1_hex($string);
     $self->{DEBUG}->Log1("Generate: key($string)");
     return $string;