[Bps-public-commit] r9858 - in bpsbuilder/BPB: .

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Dec  9 10:54:49 2007
New Revision: 9858

Modified:
   bpsbuilder/BPB/   (props changed)
   bpsbuilder/BPB/lib/BPB.pm

Log:
 r25375 at sun-navys-macbook:  sunnavy | 2007-12-09 14:41:42 +0800
 init source when needed


Modified: bpsbuilder/BPB/lib/BPB.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB.pm	(original)
+++ bpsbuilder/BPB/lib/BPB.pm	Sun Dec  9 10:54:49 2007
@@ -12,6 +12,7 @@
 
 use BPB::Config;
 use BPB::Backend;
+use BPB::Source;
 
 =head2 new
 
@@ -41,7 +42,7 @@
         => $args{name} ) );
     $self->source(
         BPB::Source->new( %{ $self->config->name->{source}}, source =>
-            $args{source} ) );
+            $args{source} ) ) if $args{source};
 
     return $self;
 }