[Bps-public-commit] r17123 - Shipwright/branches/1.10/lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sat Dec  6 06:45:11 2008
New Revision: 17123

Modified:
   Shipwright/branches/1.10/lib/Shipwright/Source/CPAN.pm

Log:
merged 17122 to 1.1

Modified: Shipwright/branches/1.10/lib/Shipwright/Source/CPAN.pm
==============================================================================
--- Shipwright/branches/1.10/lib/Shipwright/Source/CPAN.pm	(original)
+++ Shipwright/branches/1.10/lib/Shipwright/Source/CPAN.pm	Sat Dec  6 06:45:11 2008
@@ -86,7 +86,13 @@
         $compressed->run(@_);
     }
     else {
-        confess 'invalid source: ' . $self->source;
+        my $error = q{invalid source: can't find '} . $self->source . q{'};
+        if ( $self->version ) {
+            $error .= ' version ' . $self->version;
+        }
+
+        $error .= ' in your CPAN mirror(s)' . " [@{$CPAN::Config->{urllist}}].";
+        confess $error;
     }
 }