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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Jun 16 10:00:07 2008
New Revision: 13322

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

Log:
 r13441 at sunnavys-mb:  sunnavy | 2008-06-16 21:53:53 +0800
 default log_level is fatal, init backend and build only if reposiotry arg exists


Modified: Shipwright/trunk/lib/Shipwright.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright.pm	(original)
+++ Shipwright/trunk/lib/Shipwright.pm	Mon Jun 16 10:00:07 2008
@@ -32,7 +32,7 @@
     }
 
     my $self = {
-        log_level => $args{log_level},
+        log_level => uc $args{log_level} || 'FATAL',
         log_file  => $log_file,
     };
     
@@ -40,14 +40,15 @@
 
     Shipwright::Logger->new($self);
 
-    $self->backend( Shipwright::Backend->new(%args) );
+    if ( $args{repository} ) {
+        $self->backend( Shipwright::Backend->new(%args) );
+        $self->build( Shipwright::Build->new(%args) );
+    }
 
     if ( $args{source} ) {
         $self->source( Shipwright::Source->new(%args) );
     }
 
-    $self->build( Shipwright::Build->new(%args) );
-
     return $self;
 }