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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Jan 18 07:58:27 2009
New Revision: 17818

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

Log:
 r18890 at sunnavys-mb:  sunnavy | 2009-01-18 18:15:07 +0800
 cpan dists can not be branches


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:58:27 2009
@@ -118,6 +118,9 @@
             skip_all_recommends => $self->skip_all_recommends,
         );
 
+        confess "cpan dists can't be branched"
+          if $shipwright->source->isa('Shipwright::Source::CPAN') && $self->as;
+
         unless ( $self->overwrite ) {
 
             # skip already imported dists