From 68e68e18c457d31c1c61bc08dd14a56e7e7ac21e Mon Sep 17 00:00:00 2001
From: mdw <mdw>
Date: Sun, 18 Apr 2004 15:05:08 +0000
Subject: [PATCH] Set IV on decryption.

---
 Catacomb.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Catacomb.pm b/Catacomb.pm
index 20bfec2..35812e8 100644
--- a/Catacomb.pm
+++ b/Catacomb.pm
@@ -1,6 +1,6 @@
 # -*-perl-*-
 #
-# $Id: Catacomb.pm,v 1.2 2004/04/08 01:36:21 mdw Exp $
+# $Id: Catacomb.pm,v 1.3 2004/04/18 15:05:08 mdw Exp $
 #
 # Perl interface to Catacomb crypto library
 #
@@ -165,6 +165,7 @@ sub decrypt {
     $iv = undef;
   }
   my $c = $cc->init($k);
+  $c->setiv($iv) if defined($iv);
   return $c->decrypt($p);
 }
 
-- 
2.11.0