[packages/perl-Mail-POP3Client.git] / perl-Mail-POP3Client-Digest-MD5.patch

diff -ur POP3Client-2.7.orig/POP3Client.pm POP3Client-2.7/POP3Client.pm
--- POP3Client-2.7.orig/POP3Client.pm	Mon Sep 25 02:29:03 2000
+++ POP3Client-2.7/POP3Client.pm	Tue May  1 00:29:55 2001
@@ -377,11 +377,11 @@
 #******************************************************************************
 sub Login_APOP
 {
-  require MD5;
+  require Digest::MD5;
   
   my $me = shift;
   my $s = $me->Socket();
-  my $hash= MD5->hexhash ($me->{MESG_ID} . $me->Pass);
+  my $hash= Digest::MD5->md5_hex ($me->{MESG_ID} . $me->Pass);
   
   $me->_sockprint( "APOP " , $me->User , ' ', $hash, $me->EOL );
   my $line = $me->_sockread();
Commit	Line	Data
f028cd88 JR	1	diff -ur POP3Client-2.7.orig/POP3Client.pm POP3Client-2.7/POP3Client.pm
	2	--- POP3Client-2.7.orig/POP3Client.pm Mon Sep 25 02:29:03 2000
	3	+++ POP3Client-2.7/POP3Client.pm Tue May 1 00:29:55 2001
	4	@@ -377,11 +377,11 @@
	5	#******************************************************************************
	6	sub Login_APOP
	7	{
	8	- require MD5;
	9	+ require Digest::MD5;
	10
	11	my $me = shift;
	12	my $s = $me->Socket();
	13	- my $hash= MD5->hexhash ($me->{MESG_ID} . $me->Pass);
	14	+ my $hash= Digest::MD5->md5_hex ($me->{MESG_ID} . $me->Pass);
	15
	16	$me->_sockprint( "APOP " , $me->User , ' ', $hash, $me->EOL );
	17	my $line = $me->_sockread();