diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2003-07-27 19:14:19 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-28 10:05:58 +0000 |
| commit | 6c670c7ed4428d6d96ff225a8531e769e0c09375 (patch) | |
| tree | 457626fb1d8c4e54a9eccb083373db7855b947b5 /lib/CPAN | |
| parent | a6133dd6d226e7195efd32387808f6e8ec3e35dd (diff) | |
| download | perl-6c670c7ed4428d6d96ff225a8531e769e0c09375.tar.gz | |
CPAN/t/signature.t noisy
Message-ID: <20030728091419.GG21044@windhund.schwern.org>
p4raw-id: //depot/perl@20257
Diffstat (limited to 'lib/CPAN')
| -rw-r--r-- | lib/CPAN/t/signature.t | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lib/CPAN/t/signature.t b/lib/CPAN/t/signature.t index 670a1aacce..de279358f2 100644 --- a/lib/CPAN/t/signature.t +++ b/lib/CPAN/t/signature.t @@ -3,14 +3,12 @@ use strict; print "1..1\n"; -if (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) { - print "ok 1 # skip - Cannot connect to the keyserver"; -} -elsif (!eval { require Module::Signature; 1 }) { - warn "# Next time around, consider install Module::Signature,\n". - "# so you can verify the integrity of this distribution.\n"; +if (!eval { require Module::Signature; 1 }) { print "ok 1 # skip - Module::Signature not installed\n"; } +elsif (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) { + print "ok 1 # skip - Cannot connect to the keyserver"; +} else { (Module::Signature::verify() == Module::Signature::SIGNATURE_OK()) or print "not "; |