Set IV on decryption.

[catacomb-perl] / Catacomb.pm

diff --git a/Catacomb.pm b/Catacomb.pm
index 154b3db..35812e8 100644 (file)
--- a/Catacomb.pm
+++ b/Catacomb.pm
@@ -1,6 +1,6 @@
 # -*-perl-*-
 #
-# $Id: Catacomb.pm,v 1.1 2004/04/02 18:04:01 mdw Exp $
+# $Id: Catacomb.pm,v 1.3 2004/04/18 15:05:08 mdw Exp $
 #
 # Perl interface to Catacomb crypto library
 #
@@ -25,13 +25,6 @@
 # along with Catacomb/Perl; if not, write to the Free Software Foundation,
 # Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
-#----- Revision history -----------------------------------------------------
-#
-# $Log: Catacomb.pm,v $
-# Revision 1.1  2004/04/02 18:04:01  mdw
-# Initial checkin.
-#
-
 #----- Basic stuff ----------------------------------------------------------
 
 package Catacomb;
@@ -172,6 +165,7 @@ sub decrypt {
     $iv = undef;
   }
   my $c = $cc->init($k);
+  $c->setiv($iv) if defined($iv);
   return $c->decrypt($p);
 }