[Bps-public-commit] r12242 -

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon May 12 06:44:02 2008
New Revision: 12242

Modified:
   /   (props changed)
   Shipwright/trunk/lib/Shipwright/Backend/SVK.pm
   Shipwright/trunk/lib/Shipwright/Backend/SVN.pm

Log:
 r12247 at sunnavys-mb:  sunnavy | 2008-05-12 16:08:52 +0800
 info args are like path => $path now


Modified: Shipwright/trunk/lib/Shipwright/Backend/SVK.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend/SVK.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend/SVK.pm	Mon May 12 06:44:02 2008
@@ -71,7 +71,7 @@
 
     unless ( $args{_initialize} || $args{_extra_tests} ) {
         if ( $args{build_script} ) {
-            if ( $self->info("scripts/$name") && not $args{overwrite} ) {
+            if ( $self->info( path => "scripts/$name") && not $args{overwrite} ) {
                 $self->log->warn(
 "path scripts/$name alreay exists, need to set overwrite arg to overwrite"
                 );
@@ -85,7 +85,7 @@
             }
         }
         else {
-            if ( $self->info("dists/$name") && not $args{overwrite} ) {
+            if ( $self->info( path => "dists/$name") && not $args{overwrite} ) {
                 $self->log->warn(
 "path dists/$name alreay exists, need to set overwrite arg to overwrite"
                 );
@@ -424,7 +424,7 @@
 sub delete {
     my $self = shift;
     my $path = shift || '';
-    if ( $self->info($path) ) {
+    if ( $self->info( path => $path) ) {
         $self->log->info( "delete " . $self->repository . "/$path" );
         Shipwright::Util->run( $self->_cmd( delete => path => $path ), 1 );
     }
@@ -438,7 +438,9 @@
 
 sub info {
     my $self = shift;
-    my $path = shift;
+    my %args = @_;
+    my $path = $args{path};
+
     my ( $info, $err ) =
       Shipwright::Util->run( $self->_cmd( info => path => $path ), 1 );
     $self->log->warn($err) if $err;

Modified: Shipwright/trunk/lib/Shipwright/Backend/SVN.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend/SVN.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend/SVN.pm	Mon May 12 06:44:02 2008
@@ -77,7 +77,7 @@
                 $self->_cmd( import => %args, name => $name ) );
         }
         elsif ( $args{build_script} ) {
-            if ( $self->info("scripts/$name") && not $args{overwrite} ) {
+            if ( $self->info( path => "scripts/$name") && not $args{overwrite} ) {
                 $self->log->warn(
 "path scripts/$name alreay exists, need to set overwrite arg to overwrite"
                 );
@@ -91,7 +91,7 @@
             }
         }
         else {
-            if ( $self->info("dists/$name") && not $args{overwrite} ) {
+            if ( $self->info( path => "dists/$name") && not $args{overwrite} ) {
                 $self->log->warn(
 "path dists/$name alreay exists, need to set overwrite arg to overwrite"
                 );
@@ -420,7 +420,7 @@
 sub delete {
     my $self = shift;
     my $path = shift || '';
-    if ( $self->info($path) ) {
+    if ( $self->info( path => $path) ) {
         $self->log->info( "delete " . $self->repository . "/$path" );
         Shipwright::Util->run( $self->_cmd( delete => path => $path ), 1 );
     }
@@ -434,7 +434,9 @@
 
 sub info {
     my $self = shift;
-    my $path = shift;
+    my %args = @_;
+    my $path = $args{path};
+
     my ( $info, $err ) =
       Shipwright::Util->run( $self->_cmd( info => path => $path ), 1 );
     if ($err) {