[Bps-public-commit] r10379 - bpsbuilder/BPB/lib/BPB/Backend

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Jan 17 05:35:56 2008
New Revision: 10379

Modified:
   bpsbuilder/BPB/lib/BPB/Backend/SVK.pm
   bpsbuilder/BPB/lib/BPB/Backend/SVN.pm

Log:
comment default is null

Modified: bpsbuilder/BPB/lib/BPB/Backend/SVK.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Backend/SVK.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Backend/SVK.pm	Thu Jan 17 05:35:56 2008
@@ -119,7 +119,7 @@
 
 =head2 checkout
 
-a wrapper of check cmd of svk
+a wrapper of checkout cmd of svk
 checkout a project, partly or as a whole
 
 =cut
@@ -152,6 +152,7 @@
     my $type = shift;
     my %args = @_;
     $args{path} ||= '';
+    $args{comment} ||= '';
 
     for ( @{ $REQUIRE_OPTIONS{$type} } ) {
         croak "$type need option $_" unless $args{$_};

Modified: bpsbuilder/BPB/lib/BPB/Backend/SVN.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Backend/SVN.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Backend/SVN.pm	Thu Jan 17 05:35:56 2008
@@ -125,7 +125,7 @@
 
 =head2 checkout
 
-a wrapper of check cmd of svk
+a wrapper of checkout cmd of svk
 checkout a project, partly or as a whole
 
 =cut
@@ -193,7 +193,7 @@
                 $cmd = [
                     'svn',       'import',
                     $script_dir, $self->repository . "/scripts/$args{name}/",
-                    '-m',        q{'} . $args{comment} . q{'},
+                    '-m',        q{'} . $args{comment}||'' . q{'},
                 ];
             }
             else {