# -*-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
#
$iv = undef;
}
my $c = $cc->init($k);
+ $c->setiv($iv) if defined($iv);
return $c->decrypt($p);
}