[Bps-public-commit] r15720 - in Shipwright/branches/1.10: lib/Shipwright/Backend lib/Shipwright/Script

[alexmv at bestpractical.com]

Author: alexmv
Date: Wed Sep  3 13:42:44 2008
New Revision: 15720

Modified:
   Shipwright/branches/1.10/   (props changed)
   Shipwright/branches/1.10/lib/Shipwright/Backend/SVK.pm
   Shipwright/branches/1.10/lib/Shipwright/Backend/SVN.pm
   Shipwright/branches/1.10/lib/Shipwright/Script/Import.pm

Log:
 r36834 at kohr-ah:  chmrr | 2008-09-03 13:42:28 -0400
  * Fix a couple more quoted messages
  * Fix space in "import scripts for/path/here"
  * Add missing slash in extra_tests path
  * A couple small changes to reduce the diff between SVK.pm and SVN.pm


Modified: Shipwright/branches/1.10/lib/Shipwright/Backend/SVK.pm
==============================================================================
--- Shipwright/branches/1.10/lib/Shipwright/Backend/SVK.pm	(original)
+++ Shipwright/branches/1.10/lib/Shipwright/Backend/SVK.pm	Wed Sep  3 13:42:44 2008
@@ -70,8 +70,6 @@
     elsif ( $type eq 'export' ) {
         $cmd =
           [ 'svk', 'checkout', $self->repository . $args{path}, $args{target} ];
-
-        #            $cmd = [ 'svk', 'checkout', '-d', $args{target} ];
     }
     elsif ( $type eq 'list' ) {
         $cmd = [ 'svk', 'list', $self->repository . $args{path} ];
@@ -115,7 +113,7 @@
     elsif ( $type eq 'delete' ) {
         $cmd = [
             'svk', 'delete', '-m',
-            q{'} . 'delete repository' . q{'},
+            'delete repository',
             $self->repository . $args{path},
         ];
     }
@@ -124,7 +122,7 @@
             'svk',
             'move',
             '-m',
-            q{'} . "move $args{path} to $args{new_path}" . q{'},
+            "move $args{path} to $args{new_path}",
             $self->repository . $args{path},
             $self->repository . $args{new_path}
         ];

Modified: Shipwright/branches/1.10/lib/Shipwright/Backend/SVN.pm
==============================================================================
--- Shipwright/branches/1.10/lib/Shipwright/Backend/SVN.pm	(original)
+++ Shipwright/branches/1.10/lib/Shipwright/Backend/SVN.pm	Wed Sep  3 13:42:44 2008
@@ -8,7 +8,7 @@
 use File::Temp qw/tempdir/;
 use File::Copy qw/copy/;
 
-our %REQUIRE_OPTIONS = ( import => [qw/source/], );
+our %REQUIRE_OPTIONS = ( import => [qw/source/] );
 
 use base qw/Shipwright::Backend::Base/;
 
@@ -37,8 +37,8 @@
     $self->delete;    # clean repository in case it exists
     $self->import(
         source      => $dir,
-        comment     => 'create project',
         _initialize => 1,
+        comment     => 'created project',
     );
 
 }
@@ -80,14 +80,14 @@
             $cmd = [
                 'svn',         'import',
                 $args{source}, $self->repository,
-                '-m',          $args{comment}
+                '-m',          $args{comment},
             ];
         }
         elsif ( $args{_extra_tests} ) {
             $cmd = [
                 'svn',         'import',
-                $args{source}, $self->repository . 't/extra',
-                '-m',          $args{comment}
+                $args{source}, $self->repository . '/t/extra',
+                '-m',          $args{comment},
             ];
         }
         else {
@@ -117,8 +117,8 @@
     elsif ( $type eq 'delete' ) {
         $cmd = [
             'svn', 'delete', '-m',
-            q{'} . 'delete' . $args{path} . q{'},
-            $self->repository . $args{path}
+            'delete ' . $args{path},
+            $self->repository . $args{path},
         ];
     }
     elsif ( $type eq 'move' ) {
@@ -126,7 +126,7 @@
             'svn',
             'move',
             '-m',
-            q{'} . "move $args{path} to $args{new_path}" . q{'},
+            "move $args{path} to $args{new_path}",
             $self->repository . $args{path},
             $self->repository . $args{new_path}
         ];

Modified: Shipwright/branches/1.10/lib/Shipwright/Script/Import.pm
==============================================================================
--- Shipwright/branches/1.10/lib/Shipwright/Script/Import.pm	(original)
+++ Shipwright/branches/1.10/lib/Shipwright/Script/Import.pm	Wed Sep  3 13:42:44 2008
@@ -168,7 +168,7 @@
         );
         $shipwright->backend->import(
             source       => $source,
-            comment      => 'import scripts for' . $source,
+            comment      => 'import scripts for ' . $source,
             build_script => $script_dir,
             overwrite    => 1,
         );
@@ -271,7 +271,7 @@
                     );
                     $shipwright->backend->import(
                         source       => $s,
-                        comment      => 'import scripts for' . $s,
+                        comment      => 'import scripts for ' . $s,
                         build_script => $script_dir,
                         overwrite    => $self->overwrite,
                     );