Set IV on decryption.

diff --git a/Catacomb.pm b/Catacomb.pm
index 20bfec2..35812e8 100644 (file)
--- 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);
 }