[Bps-public-commit] r19037 - Shipwright/trunk/lib/Shipwright/Backend

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Apr  2 13:47:01 2009
New Revision: 19037

Modified:
   Shipwright/trunk/lib/Shipwright/Backend/Base.pm

Log:
all dists should have require.yml in scripts/$name dir: so we can call requires to get it

Modified: Shipwright/trunk/lib/Shipwright/Backend/Base.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend/Base.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend/Base.pm	Thu Apr  2 13:47:01 2009
@@ -402,10 +402,7 @@
     my $name    = $args{name};
 
     return if $require->{$name};
-    my $out = Shipwright::Util->run(
-        $self->_cmd( 'cat', path => "/scripts/$name/require.yml" ), 1 );
-
-    my $req = Shipwright::Util::Load($out) || {};
+    my $req = $self->requires( name => $name ) || {};
 
     if ( $req->{requires} ) {
         for (qw/requires recommends build_requires/) {
@@ -818,10 +815,7 @@
         # initialize here, in case we don't have $name entry in $refs
         $refs->{$name} ||= 0;
 
-        my $out = Shipwright::Util->run(
-            $self->_cmd( 'cat', path => "/scripts/$name/require.yml" ), 1 );
-
-        my $req = Shipwright::Util::Load($out) || {};
+        my $req = $self->requires( name => $name ) || {};
 
         my @deps;
         if ( $req->{requires} ) {