[Bps-public-commit] r10681 - bpsbuilder/Shipwright/lib/Shipwright

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sat Feb  2 19:45:47 2008
New Revision: 10681

Modified:
   bpsbuilder/Shipwright/lib/Shipwright/Backend.pm

Log:
use project-name arg as the 1st choice of the project name

Modified: bpsbuilder/Shipwright/lib/Shipwright/Backend.pm
==============================================================================
--- bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	(original)
+++ bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	Sat Feb  2 19:45:47 2008
@@ -282,7 +282,9 @@
         $CPAN::Config->{prerequisites_policy} = 'ignore';
     }
 
-    my ($project_name) = $build_base =~ /([-\w]+)$/;
+    my $project_name = $args{'project-name'};
+    ($project_name) = $build_base =~ /([-.\w]+)$/ unless $project_name;
+
     unless ( $args{'install-base'} ) {
         my $dir = tempdir( $project_name . '-XXXXXX', DIR => '/tmp' );
         $args{'install-base'} = File::Spec->catfile( $dir, $project_name );