[Bps-public-commit] r12295 - in Shipwright/trunk: lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue May 13 10:34:22 2008
New Revision: 12295

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Source/CPAN.pm

Log:
 r12335 at sunnavys-mb:  sunnavy | 2008-05-13 22:00:50 +0800
 it is better to convert the cpan dist source to cpan module source


Modified: Shipwright/trunk/lib/Shipwright/Source/CPAN.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/CPAN.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/CPAN.pm	Tue May 13 10:34:22 2008
@@ -25,6 +25,7 @@
 sub new {
     my $class = shift;
     my $self  = $class->SUPER::new(@_);
+
 #    CPAN::Config->use;
 #
 #    mkdir File::Spec->catfile( $cpan_dir, 'CPAN' );
@@ -80,6 +81,10 @@
             return;
         }
 
+        # distribution source isn't good for shipwright, convert it to a
+        # module name it contains
+        $self->source( ( $distribution->containsmods )[0] );
+
         $source = $distribution->{ID};
     }
     else {