[Bps-public-commit] r10248 - bpsbuilder/BPB/lib/BPB/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Jan  4 04:25:52 2008
New Revision: 10248

Modified:
   bpsbuilder/BPB/lib/BPB/Source/Base.pm
   bpsbuilder/BPB/lib/BPB/Source/CPAN.pm

Log:
for modules of which the module name is not the same as dist name, we'd better use the dist name

Modified: bpsbuilder/BPB/lib/BPB/Source/Base.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Source/Base.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Source/Base.pm	Fri Jan  4 04:25:52 2008
@@ -117,14 +117,14 @@
                     $s = BPB::Source->new(
                         %$self,
                         source => $require->{$module}{source},
-                        name   => $module
+                        name   => $name
                     );
                 }
                 else {
                     $s = BPB::Source->new(
                         %$self,
                         source => $module,
-                        name   => $module
+                        name   => $name,
                     );
                 }
                 $s->run();

Modified: bpsbuilder/BPB/lib/BPB/Source/CPAN.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Source/CPAN.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Source/CPAN.pm	Fri Jan  4 04:25:52 2008
@@ -71,6 +71,7 @@
     $moniker =~ s/::/-/g;
 
     if ( $dist ne $moniker ) {
+        $self->name( $dist );
         $self->_make_maps( $name, $dist );
     }