[Bps-public-commit] r15718 - Shipwright/branches/1.10/lib/Shipwright/Backend

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Sep  3 03:44:20 2008
New Revision: 15718

Modified:
   Shipwright/branches/1.10/lib/Shipwright/Backend/SVK.pm
   Shipwright/branches/1.10/lib/Shipwright/Backend/SVN.pm

Log:
merged 15717 to 1.1

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 03:44:20 2008
@@ -81,14 +81,14 @@
             $cmd = [
                 'svk',         'import',
                 $args{source}, $self->repository,
-                '-m',          q{'} . $args{comment} . q{'},
+                '-m',          $args{comment},
             ];
         }
         elsif ( $args{_extra_tests} ) {
             $cmd = [
                 'svk',         'import',
                 $args{source}, $self->repository . '/t/extra',
-                '-m',          q{'} . $args{comment} . q{'},
+                '-m',          $args{comment},
             ];
         }
         else {
@@ -96,21 +96,21 @@
                 $cmd = [
                     'svk',       'import',
                     $script_dir, $self->repository . "/scripts/$args{name}/",
-                    '-m',        q{'} . $args{comment} . q{'},
+                    '-m',        $args{comment},
                 ];
             }
             else {
                 $cmd = [
                     'svk',         'import',
                     $args{source}, $self->repository . "/dists/$args{name}",
-                    '-m',          q{'} . $args{comment} . q{'},
+                    '-m',          $args{comment},
                 ];
             }
         }
     }
     elsif ( $type eq 'commit' ) {
         $cmd =
-          [ 'svk', 'commit', '-m', q{'} . $args{comment} . q{'}, $args{path} ];
+          [ 'svk', 'commit', '-m', $args{comment}, $args{path} ];
     }
     elsif ( $type eq 'delete' ) {
         $cmd = [

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 03:44:20 2008
@@ -80,14 +80,14 @@
             $cmd = [
                 'svn',         'import',
                 $args{source}, $self->repository,
-                '-m',          q{'} . $args{comment} . q{'}
+                '-m',          $args{comment}
             ];
         }
         elsif ( $args{_extra_tests} ) {
             $cmd = [
                 'svn',         'import',
                 $args{source}, $self->repository . 't/extra',
-                '-m',          q{'} . $args{comment} . q{'},
+                '-m',          $args{comment}
             ];
         }
         else {
@@ -95,14 +95,14 @@
                 $cmd = [
                     'svn',       'import',
                     $script_dir, $self->repository . "/scripts/$args{name}/",
-                    '-m',        q{'} . $args{comment} || '' . q{'},
+                    '-m',        $args{comment},
                 ];
             }
             else {
                 $cmd = [
                     'svn',         'import',
                     $args{source}, $self->repository . "/dists/$args{name}",
-                    '-m',          q{'} . $args{comment} . q{'},
+                    '-m',          $args{comment},
                 ];
             }
         }
@@ -112,7 +112,7 @@
     }
     elsif ( $type eq 'commit' ) {
         $cmd =
-          [ 'svn', 'commit', '-m', q{'} . $args{comment} . q{'}, $args{path} ];
+          [ 'svn', 'commit', '-m', $args{comment}, $args{path} ];
     }
     elsif ( $type eq 'delete' ) {
         $cmd = [