[Bps-public-commit] r10203 - bpsbuilder/BPB/lib/BPB/Backend

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Dec 30 11:51:16 2007
New Revision: 10203

Modified:
   bpsbuilder/BPB/lib/BPB/Backend/SVK.pm

Log:
removed needless lines

Modified: bpsbuilder/BPB/lib/BPB/Backend/SVK.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Backend/SVK.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Backend/SVK.pm	Sun Dec 30 11:51:16 2007
@@ -128,9 +128,6 @@
                   $self->repository . "/scripts/$name/";
             }
             else {
-                my $name = $args{source};
-                $name =~ s!^.*/(.+)/?$!$1.tar.gz!;
-                $name = CPAN::DistnameInfo->new($name)->dist;
                 $cmd = join ' ', 'svk', 'import', $args{source},
                   $self->repository . "/dists/$name";
             }
@@ -177,9 +174,9 @@
 
     for (@dists) {
         s{/$}{};
-        my $cmd = 'svk cat ' . $self->repository . "/scripts/$_/require.yml";
+        my $cmd    = 'svk cat ' . $self->repository . "/scripts/$_/require.yml";
         my $string = `$cmd`;
-        my $req = BPB::Config::Load($string);
+        my $req    = BPB::Config::Load($string);
         use Data::Dumper;
         $require->{$_} = [ keys %$req ];
     }
@@ -192,7 +189,7 @@
     my $dep = Algorithm::Dependency::Ordered->new( source => $source, )
       or die $@;
     my $order = $dep->schedule_all();
-    $self->order( $order );
+    $self->order($order);
 }
 
 sub order {