From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 29 Jul 2003 10:28:10 +0000 (+0000)
Subject: Upgrade to CPAN.pm 1.74.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4916df6750fdef81500cd9a73ec1c1a878290172;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to CPAN.pm 1.74.

p4raw-id: //depot/perl@20293
---

diff --git a/lib/CPAN.pm b/lib/CPAN.pm
index b27a98c..81b335b 100644
--- a/lib/CPAN.pm
+++ b/lib/CPAN.pm
@@ -1,11 +1,11 @@
 # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
 package CPAN;
-$VERSION = '1.72';
-# $Id: CPAN.pm,v 1.407 2003/07/27 16:07:39 k Exp $
+$VERSION = '1.74';
+# $Id: CPAN.pm,v 1.409 2003/07/28 22:07:23 k Exp $
 
 # only used during development:
 $Revision = "";
-# $Revision = "[".substr(q$Revision: 1.407 $, 10)."]";
+# $Revision = "[".substr(q$Revision: 1.409 $, 10)."]";
 
 use Carp ();
 use Config ();
diff --git a/lib/CPAN/t/signature.t b/lib/CPAN/t/signature.t
index de27935..7e62c4d 100644
--- a/lib/CPAN/t/signature.t
+++ b/lib/CPAN/t/signature.t
@@ -4,13 +4,14 @@ use strict;
 print "1..1\n";
 
 if (!eval { require Module::Signature; 1 }) {
-    print "ok 1 # skip - Module::Signature not installed\n";
+  skip("Next time around, consider install Module::Signature, ".
+       "so you can verify the integrity of this distribution.", 1);
 }
 elsif (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) {
-    print "ok 1 # skip - Cannot connect to the keyserver";
+  print "ok 1 # skip - Cannot connect to the keyserver";
 }
 else {
-    (Module::Signature::verify() == Module::Signature::SIGNATURE_OK())
-        or print "not ";
-    print "ok 1 # Valid signature\n";
+  (Module::Signature::verify() == Module::Signature::SIGNATURE_OK())
+      or print "not ";
+  print "ok 1 # Valid signature\n";
 }