[Bps-public-commit] r10813 - in Shipwright/lib/Shipwright: Backend

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Feb 12 22:06:45 2008
New Revision: 10813

Modified:
   Shipwright/lib/Shipwright/Backend/SVK.pm
   Shipwright/lib/Shipwright/Backend/SVN.pm
   Shipwright/lib/Shipwright/Script/Update.pm

Log:
rename require method to requires for Backend Modules, since we need to require for UNIVERSAL::require

Modified: Shipwright/lib/Shipwright/Backend/SVK.pm
==============================================================================
--- Shipwright/lib/Shipwright/Backend/SVK.pm	(original)
+++ Shipwright/lib/Shipwright/Backend/SVK.pm	Tue Feb 12 22:06:45 2008
@@ -513,11 +513,11 @@
     $self->checkout( detach => 1, target => $file );
 }
 
-=head2 require
+=head2 requires
 return hashref to require.yml for a dist
 =cut
 
-sub require {
+sub requires {
     my $self = shift;
     my $name = shift;
 

Modified: Shipwright/lib/Shipwright/Backend/SVN.pm
==============================================================================
--- Shipwright/lib/Shipwright/Backend/SVN.pm	(original)
+++ Shipwright/lib/Shipwright/Backend/SVN.pm	Tue Feb 12 22:06:45 2008
@@ -522,11 +522,11 @@
     $self->commit( path => $file, comment => "update test script" );
 }
 
-=head2 require
+=head2 requires
 return hashref to require.yml for a dist
 =cut
 
-sub require {
+sub requires {
     my $self = shift;
     my $name = shift;
 

Modified: Shipwright/lib/Shipwright/Script/Update.pm
==============================================================================
--- Shipwright/lib/Shipwright/Script/Update.pm	(original)
+++ Shipwright/lib/Shipwright/Script/Update.pm	Tue Feb 12 22:06:45 2008
@@ -78,7 +78,7 @@
 
                 return if $checked{$name}++; # we've checked this $name
 
-                my ($require) = $shipwright->backend->require($name);
+                my ($require) = $shipwright->backend->requires($name);
                 for my $type (qw/requires build_requires recommends/) {
                     for ( keys %{ $require->{$type} } ) {
                         $find_deps->( $_ );