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

sunnavy at bestpractical.com sunnavy at bestpractical.com
Wed Sep 3 03:41:24 EDT 2008


Author: sunnavy
Date: Wed Sep  3 03:41:24 2008
New Revision: 15717

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

Log:
 r16394 at sunnavys-mb:  sunnavy | 2008-09-03 15:41:05 +0800
 we do not need to quote comment any more


Modified: Shipwright/trunk/lib/Shipwright/Backend/SVK.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend/SVK.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend/SVK.pm	Wed Sep  3 03:41:24 2008
@@ -84,14 +84,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 {
@@ -119,7 +119,7 @@
                     [
                         'svk',      'commit',
                         '--import', $tmp_dir,
-                        '-m',       q{'} . $args{comment} . q{'}
+                        '-m',       $args{comment}
                     ],
                     [ 'svk', 'checkout', '-d', $tmp_dir ],
                 );
@@ -128,14 +128,14 @@
                 @cmd = [
                     'svk',   'import',
                     $source, $self->repository . $path,
-                    '-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/trunk/lib/Shipwright/Backend/SVN.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend/SVN.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend/SVN.pm	Wed Sep  3 03:41:24 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,7 +95,7 @@
                 @cmd = [
                     'svn',       'import',
                     $script_dir, $self->repository . "/scripts/$args{name}/",
-                    '-m',        q{'} . $args{comment} || '' . q{'},
+                    '-m',        $args{comment},
                 ];
             }
             else {
@@ -106,7 +106,7 @@
                         $args{source},
                         $self->repository . "/sources/$args{name}/$args{as}",
                         '-m',
-                        q{'} . $args{comment} . q{'},
+                        $args{comment},
                     ];
                 }
                 else {
@@ -116,7 +116,7 @@
                         $args{source},
                         $self->repository . "/dists/$args{name}",
                         '-m',
-                        q{'} . $args{comment} . q{'},
+                        $args{comment},
                     ];
 
                 }
@@ -128,7 +128,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 = [



More information about the Bps-public-commit mailing list