[svk-commit] r3150 - trunk/lib/SVK/Command

nobody at bestpractical.com nobody at bestpractical.com
Mon Mar 2 18:26:21 EST 2009


Author: alexmv
Date: Mon Mar  2 18:26:21 2009
New Revision: 3150

Modified:
   trunk/lib/SVK/Command/Branch.pm
   trunk/lib/SVK/Command/Cleanup.pm
   trunk/lib/SVK/Command/Commit.pm
   trunk/lib/SVK/Command/Diff.pm
   trunk/lib/SVK/Command/Info.pm
   trunk/lib/SVK/Command/List.pm
   trunk/lib/SVK/Command/Log.pm
   trunk/lib/SVK/Command/Propdel.pm
   trunk/lib/SVK/Command/Propedit.pm
   trunk/lib/SVK/Command/Proplist.pm
   trunk/lib/SVK/Command/Propset.pm
   trunk/lib/SVK/Command/Pull.pm
   trunk/lib/SVK/Command/Revert.pm
   trunk/lib/SVK/Command/Status.pm
   trunk/lib/SVK/Command/Update.pm

Log:
 * Use '.' as the default path, not '', to cope with Cwd::fast_abs_path('') exploding

Modified: trunk/lib/SVK/Command/Branch.pm
==============================================================================
--- trunk/lib/SVK/Command/Branch.pm	(original)
+++ trunk/lib/SVK/Command/Branch.pm	Mon Mar  2 18:26:21 2009
@@ -87,7 +87,7 @@
 
 sub parse_arg {
     my ($self, @arg) = @_;
-    @arg = ('') if $#arg < 0;
+    @arg = ('.') if $#arg < 0;
 
     my ($proj,$target, $msg) = $self->locate_project(pop @arg);
     unless ($proj) {
@@ -285,7 +285,7 @@
     my ($self, @arg) = @_;
     return if $#arg > 1;
 
-    @arg = ('') if $#arg < 0;
+    @arg = ('.') if $#arg < 0;
 
     my $dst = shift (@arg);
     die loc ("Copy destination can't be URI.\n")

Modified: trunk/lib/SVK/Command/Cleanup.pm
==============================================================================
--- trunk/lib/SVK/Command/Cleanup.pm	(original)
+++ trunk/lib/SVK/Command/Cleanup.pm	Mon Mar  2 18:26:21 2009
@@ -64,7 +64,7 @@
     my ($self, @arg) = @_;
     ++$self->{hold_giant};
     return undef if $self->{all};
-    @arg = ('') if $#arg < 0;
+    @arg = ('.') if $#arg < 0;
     return map {$self->arg_copath ($_)} @arg;
 }
 

Modified: trunk/lib/SVK/Command/Commit.pm
==============================================================================
--- trunk/lib/SVK/Command/Commit.pm	(original)
+++ trunk/lib/SVK/Command/Commit.pm	Mon Mar  2 18:26:21 2009
@@ -83,7 +83,7 @@
 
 sub parse_arg {
     my ($self, @arg) = @_;
-    @arg = ('') if $#arg < 0;
+    @arg = ('.') if $#arg < 0;
 
     return $self->arg_condensed (@arg);
 }

Modified: trunk/lib/SVK/Command/Diff.pm
==============================================================================
--- trunk/lib/SVK/Command/Diff.pm	(original)
+++ trunk/lib/SVK/Command/Diff.pm	Mon Mar  2 18:26:21 2009
@@ -69,7 +69,7 @@
 
 sub parse_arg {
     my ($self, @arg) = @_;
-    @arg = ('') if $#arg < 0;
+    @arg = ('.') if $#arg < 0;
     return map {$self->arg_co_maybe ($_)} @arg;
 }
 

Modified: trunk/lib/SVK/Command/Info.pm
==============================================================================
--- trunk/lib/SVK/Command/Info.pm	(original)
+++ trunk/lib/SVK/Command/Info.pm	Mon Mar  2 18:26:21 2009
@@ -67,7 +67,7 @@
 
 sub parse_arg {
     my ($self, @arg) = @_;
-    @arg = ('') if $#arg < 0;
+    @arg = ('.') if $#arg < 0;
 
     return map {$self->arg_co_maybe ($_)} @arg;
 }

Modified: trunk/lib/SVK/Command/List.pm
==============================================================================
--- trunk/lib/SVK/Command/List.pm	(original)
+++ trunk/lib/SVK/Command/List.pm	Mon Mar  2 18:26:21 2009
@@ -68,7 +68,7 @@
 
 sub parse_arg {
     my ($self, @arg) = @_;
-    @arg = ('') if $#arg < 0;
+    @arg = ('.') if $#arg < 0;
     return map {$self->arg_co_maybe ($_)} @arg;
 }
 

Modified: trunk/lib/SVK/Command/Log.pm
==============================================================================
--- trunk/lib/SVK/Command/Log.pm	(original)
+++ trunk/lib/SVK/Command/Log.pm	Mon Mar  2 18:26:21 2009
@@ -95,7 +95,7 @@
 sub parse_arg {
     my $self = shift;
     my @arg = @_;
-    @arg = ('') if $#arg < 0;
+    @arg = ('.') if $#arg < 0;
 
     return $self->arg_co_maybe (@arg);
 }

Modified: trunk/lib/SVK/Command/Propdel.pm
==============================================================================
--- trunk/lib/SVK/Command/Propdel.pm	(original)
+++ trunk/lib/SVK/Command/Propdel.pm	Mon Mar  2 18:26:21 2009
@@ -58,7 +58,7 @@
 sub parse_arg {
     my ($self, @arg) = @_;
     return if @arg < 1;
-    push @arg, ('') if @arg == 1;
+    push @arg, ('.') if @arg == 1;
     return ($arg[0], map {$self->_arg_revprop ($_)} @arg[1..$#arg]);
 }
 

Modified: trunk/lib/SVK/Command/Propedit.pm
==============================================================================
--- trunk/lib/SVK/Command/Propedit.pm	(original)
+++ trunk/lib/SVK/Command/Propedit.pm	Mon Mar  2 18:26:21 2009
@@ -60,7 +60,7 @@
 sub parse_arg {
     my ($self, @arg) = @_;
     return if @arg < 1 or @arg > 2;
-    push @arg, ('') if @arg == 1;
+    push @arg, ('.') if @arg == 1;
     return ($arg[0], $self->_arg_revprop ($arg[1]));
 }
 

Modified: trunk/lib/SVK/Command/Proplist.pm
==============================================================================
--- trunk/lib/SVK/Command/Proplist.pm	(original)
+++ trunk/lib/SVK/Command/Proplist.pm	Mon Mar  2 18:26:21 2009
@@ -68,7 +68,7 @@
 sub parse_arg {
     my ($self, @arg) = @_;
 
-    @arg = ('') if $#arg < 0;
+    @arg = ('.') if $#arg < 0;
     return map { $self->_arg_revprop ($_) } @arg;
 }
 

Modified: trunk/lib/SVK/Command/Propset.pm
==============================================================================
--- trunk/lib/SVK/Command/Propset.pm	(original)
+++ trunk/lib/SVK/Command/Propset.pm	Mon Mar  2 18:26:21 2009
@@ -69,7 +69,7 @@
 sub parse_arg {
     my ($self, @arg) = @_;
     return if @arg < 2;
-    push @arg, ('') if @arg == 2;
+    push @arg, ('.') if @arg == 2;
     return (@arg[0,1], map {$self->_arg_revprop ($_)} @arg[2..$#arg]);
 }
 

Modified: trunk/lib/SVK/Command/Pull.pm
==============================================================================
--- trunk/lib/SVK/Command/Pull.pm	(original)
+++ trunk/lib/SVK/Command/Pull.pm	Mon Mar  2 18:26:21 2009
@@ -58,16 +58,16 @@
 use SVK::XD;
 
 sub options {
-   ('a|all'		=> 'all',
+   ('a|all'             => 'all',
     'force-incremental' => 'force_incremental',
-    'no-sync'       => 'no_sync',
-    'l|lump'		=> 'lump');
+    'no-sync'           => 'no_sync',
+    'l|lump'            => 'lump');
 }
 
 sub parse_arg {
     my ($self, @arg) = @_;
 
-    @arg = ('') if $#arg < 0;
+    @arg = ('.') if $#arg < 0;
 
     # -- XXX -- will break otherwise -- XXX ---
     # (Possibly fixed now, so we'll add an undocumented option to override

Modified: trunk/lib/SVK/Command/Revert.pm
==============================================================================
--- trunk/lib/SVK/Command/Revert.pm	(original)
+++ trunk/lib/SVK/Command/Revert.pm	Mon Mar  2 18:26:21 2009
@@ -66,7 +66,7 @@
 sub parse_arg {
     my $self = shift;
     my @arg = @_;
-    @arg = ('') if $#arg < 0;
+    @arg = ('.') if $#arg < 0;
 
     return $self->arg_condensed(@arg);
 }

Modified: trunk/lib/SVK/Command/Status.pm
==============================================================================
--- trunk/lib/SVK/Command/Status.pm	(original)
+++ trunk/lib/SVK/Command/Status.pm	Mon Mar  2 18:26:21 2009
@@ -68,7 +68,7 @@
 
 sub parse_arg {
     my ($self, @arg) = @_;
-    @arg = ('') if $#arg < 0;
+    @arg = ('.') if $#arg < 0;
     return $self->arg_condensed (@arg);
 }
 

Modified: trunk/lib/SVK/Command/Update.pm
==============================================================================
--- trunk/lib/SVK/Command/Update.pm	(original)
+++ trunk/lib/SVK/Command/Update.pm	Mon Mar  2 18:26:21 2009
@@ -70,7 +70,7 @@
 
 sub parse_arg {
     my ($self, @arg) = @_;
-    @arg = ('') if $#arg < 0;
+    @arg = ('.') if $#arg < 0;
     return map {$self->arg_copath ($_)} @arg;
 }
 


More information about the svk-commit mailing list