X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb-perl/blobdiff_plain/a24b5cfdde0be71a5bb2b85d94be3b93c7719e2a..68e68e18c457d31c1c61bc08dd14a56e7e7ac21e:/Catacomb.pm

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