| Subject: | Digest::MD5 Fixx |
I already e-mailed Gerald Richter about this, and he said would release a new version
when he got the time. I'm posting it here in case anyone else runs into this issue.
This patch fixes a bug related to an API change in Digest::MD5. The error
that it fixes is:
Undefined subroutine &Apache::SessionX::Generate::MD5::generate
Note that this is the error in this e-mail thread:
http://www.ecos.de/~mailarc/embperl/2002-02/msg00121.html
Here's the patch:
--- /tmp/MD5.pm Sun May 12 22:13:34 2002
+++ /usr/lib/perl5/site_perl/5.6.0/Apache/SessionX/Generate/MD5.pm
Sun May 12 22:12:57 2002
@@ -12,7 +12,7 @@
use strict;
use vars qw($VERSION);
-use MD5;
+use Digest::MD5;
$VERSION = '2.1';
@@ -26,7 +26,7 @@
}
$session->{data}->{_session_id} =
- substr(MD5->hexhash(MD5->hexhash($arg || (time(). {}. rand(). $$))), 0, $length);
+ substr(Digest::MD5::md5_hex(Digest::MD5::md5_hex($arg || (time(). {}. rand(). $$))), 0, $length);
}