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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Dec  9 10:53:56 2007
New Revision: 9856

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

Log:
 r25373 at sun-navys-macbook:  sunnavy | 2007-12-09 14:13:15 +0800
 init source part in BPB's new method


Modified: bpsbuilder/BPB/lib/BPB.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB.pm	(original)
+++ bpsbuilder/BPB/lib/BPB.pm	Sun Dec  9 10:53:56 2007
@@ -39,6 +39,9 @@
     $self->backend(
         BPB::Backend->new( %{ $self->config->name->{backend} }, name
         => $args{name} ) );
+    $self->source(
+        BPB::Source->new( %{ $self->config->name->{source}}, source =>
+            $args{source} ) );
 
     return $self;
 }

Modified: bpsbuilder/BPB/lib/BPB/Script/Source.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Script/Source.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Script/Source.pm	Sun Dec  9 10:53:56 2007
@@ -27,8 +27,6 @@
     }
     $args{source} ||= shift;
     my $bpb = BPB->new(%args);
-    $bpb->source(
-        BPB::Source->new( %{ $bpb->config->name->{source} }, %args ) );
     $bpb->source->run;
 }