From: mdw <mdw>
Date: Sun, 18 Apr 2004 15:05:08 +0000 (+0000)
Subject: Set IV on decryption.
X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb-perl/commitdiff_plain/68e68e18c457d31c1c61bc08dd14a56e7e7ac21e

Set IV on decryption.
---

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