[Bps-public-commit] r17822 - in Shipwright/trunk: lib/Shipwright/Script

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Jan 18 07:59:44 2009
New Revision: 17822

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Script/Import.pm

Log:
 r18894 at sunnavys-mb:  sunnavy | 2009-01-18 19:38:00 +0800
 don't record cpan dists to source


Modified: Shipwright/trunk/lib/Shipwright/Script/Import.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Import.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Import.pm	Sun Jan 18 07:59:44 2009
@@ -217,12 +217,14 @@
           || {};
         my $source_url = delete $new_url->{$name};
 
-        $shipwright->backend->source(
-            Hash::Merge::merge(
-                $shipwright->backend->source || {},
-                { $name => { $self->as || 'vendor' => $source_url } },
-            )
-        );
+        if ( $name !~ /^cpan-/ ) {
+            $shipwright->backend->source(
+                Hash::Merge::merge(
+                    $shipwright->backend->source || {},
+                    { $name => { $self->as || 'vendor' => $source_url } },
+                )
+            );
+        }
 
         my $new_order = $shipwright->backend->fiddle_order;
         $shipwright->backend->order($new_order);