perl-Mail-POP3Client-Digest-MD5.patch

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