[Bps-public-commit] Shipwright branch, master, updated. 1166eb1246e886733505f0366b1df12a20da4cc3

[sunnavy at bestpractical.com]

The branch, master has been updated
       via  1166eb1246e886733505f0366b1df12a20da4cc3 (commit)
      from  9bdf71d0ffaa9306000c736cacea2b6946c33bc6 (commit)

Summary of changes:
 lib/Shipwright/Source/Base.pm |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit 1166eb1246e886733505f0366b1df12a20da4cc3
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Tue Sep 15 10:24:15 2009 +0800

    log the info that the module is auto skipped because it is in core

diff --git a/lib/Shipwright/Source/Base.pm b/lib/Shipwright/Source/Base.pm
index 4208c5f..5d01ff4 100644
--- a/lib/Shipwright/Source/Base.pm
+++ b/lib/Shipwright/Source/Base.pm
@@ -411,6 +411,7 @@ EOF
                     && Module::CoreList->first_release( $module, $require->{$type}{$module}{version} )
                     && Module::CoreList->first_release( $module, $require->{$type}{$module}{version} ) <= $self->min_perl_version)
                 {
+                    $self->log->info("$module is skipped becasue it's in core");
                     delete $require->{$type}{$module};
                     next;
                 }
@@ -589,8 +590,9 @@ sub _is_skipped {
             $skip = 1
               if $self->skip->{$name} || $self->skip->{$name_without_prefix};
         }
+
         if ($skip) {
-            $self->log->warn("$module is skipped");
+            $self->log->info("$module is skipped");
             return 1;
         }
     }

-----------------------------------------------------------------------