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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sat Dec  6 07:44:37 2008
New Revision: 17126

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

Log:
 r18047 at sunnavys-mb:  sunnavy | 2008-12-06 20:33:54 +0800
 refine output when importing: show the names being imported


Modified: Shipwright/trunk/lib/Shipwright/Script/Import.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Import.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Import.pm	Sat Dec  6 07:44:37 2008
@@ -70,6 +70,8 @@
     confess "we need source arg\n" unless $source;
 
     if ( $self->extra_tests ) {
+
+        print "going to import extra_tests\n";
         $shipwright->backend->import(
             source       => $source,
             comment      => 'import extra tests',
@@ -77,6 +79,7 @@
         );
     }
     elsif ( $self->test_script ) {
+        print "going to import test_script\n";
         $shipwright->backend->test_script( source => $source );
     }
     else {
@@ -137,6 +140,7 @@
           Shipwright::Util::LoadFile( $shipwright->source->version_path );
 
         my ($name) = $source =~ m{.*/(.*)$};
+        print "importing $name: ";
         $imported{$name}++;
 
         my $base = $self->_parent_dir($source);
@@ -251,15 +255,16 @@
 
                 unless ( $imported{$dist}++ ) {
 
-                    my ($s) = grep { $_ eq $dist } @sources;
-                    unless ($s) {
+                    my ($name) = grep { $_ eq $dist } @sources;
+                    unless ($name) {
                         $self->log->warn(
                             "we don't have $dist in source which is for "
                               . $source );
                         next;
                     }
 
-                    $s = catdir( $dir, $s );
+                    print "importing $name: ";
+                    my $s = catdir( $dir, $name );
 
                     my $script_dir;
                     if ( -e catdir( $dir, '__scripts', $dist ) ) {
@@ -316,8 +321,7 @@
 
     my @commands;
     if ( -f catfile( $source_dir, 'Build.PL' ) ) {
-        print
-"detected Module::Build build system; generating appropriate build script\n";
+        print "detected Module::Build build system\n";
         @commands = (
             'configure: %%PERL%% Build.PL --install_base=%%INSTALL_BASE%%',
             'make: %%PERL%% Build',
@@ -327,8 +331,7 @@
         );
     }
     elsif ( -f catfile( $source_dir, 'Makefile.PL' ) ) {
-        print
-"detected ExtUtils::MakeMaker build system; generating appropriate build script\n";
+        print "detected ExtUtils::MakeMaker build system\n";
         @commands = (
             'configure: %%PERL%% Makefile.PL INSTALL_BASE=%%INSTALL_BASE%%',
             'make: %%MAKE%%',
@@ -338,8 +341,7 @@
         );
     }
     elsif ( -f catfile( $source_dir, 'configure' ) ) {
-        print
-"detected autoconf build system; generating appropriate build script\n";
+        print "detected autoconf build system\n";
         @commands = (
             'configure: ./configure --prefix=%%INSTALL_BASE%%',
             'make: %%MAKE%%',