palm/Palm-Keyring/t/keyring.t - diff

Return to keyring.t CVS log

Up to [local] / palm / Palm-Keyring / t

version 1.15, 2007/09/12 03:44:36

version 1.16, 2007/09/13 01:02:52

Line 1

#!/usr/bin/perl -T

# $RedRiver: keyring.t,v 1.14 2007/08/10 04:13:31 andrew Exp $

# $RedRiver: keyring.t,v 1.15 2007/09/12 02:44:36 andrew Exp $

use strict;

use warnings;

Line 72

SKIP: {

if (defined $options->{cipher} && $options->{cipher} > 0) {

my $crypt = Palm::Keyring::crypts($options->{cipher});

skip 'Crypt::CBC not installed', 21 unless

skip 'Crypt::CBC not installed', 25 unless

eval "require Crypt::CBC";

skip 'Crypt::' . $crypt->{name} . ' not installed', 21 unless

skip 'Crypt::' . $crypt->{name} . ' not installed', 25 unless

eval "require Crypt::$crypt->{name}";

}