$NetBSD: patch-ab,v 1.1 2001/10/02 11:52:53 mjl Exp $

--- CBC.pm.orig	Tue Oct  2 13:38:01 2001
+++ CBC.pm	Tue Oct  2 13:42:11 2001
@@ -1,6 +1,6 @@
 package Crypt::CBC;
 
-use MD5;
+use Digest::MD5;
 use Carp;
 use strict;
 use vars qw($VERSION);
@@ -28,9 +28,9 @@
 
     # the real key is computed from the first N bytes of the
     # MD5 hash of the provided key.
-    my $material = MD5->hash($key);
+    my $material = Digest::MD5::md5($key);
     while (length($material) < $ks + $bs)  {
-	$material .= MD5->hash($material);
+	$material .= Digest::MD5::md5($material);
     }
 	
     # Original implementation of SSLEay used part of the key for the IV