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

nobody at bestpractical.com nobody at bestpractical.com
Tue Mar 9 00:20:29 EST 2010


Author: clkao
Date: Tue Mar  9 00:19:33 2010
New Revision: 3154

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:
Revert r3150 as it breaks path reporting.

Modified: trunk/lib/SVK/Command/Branch.pm
==============================================================================
--- trunk/lib/SVK/Command/Branch.pm	(original)
+++ trunk/lib/SVK/Command/Branch.pm	Tue Mar  9 00:19:33 2010
@@ -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	Tue Mar  9 00:19:33 2010
@@ -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	Tue Mar  9 00:19:33 2010
@@ -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	Tue Mar  9 00:19:33 2010
@@ -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	Tue Mar  9 00:19:33 2010
@@ -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	Tue Mar  9 00:19:33 2010
@@ -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	Tue Mar  9 00:19:33 2010
@@ -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	Tue Mar  9 00:19:33 2010
@@ -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	Tue Mar  9 00:19:33 2010
@@ -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	Tue Mar  9 00:19:33 2010
@@ -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	Tue Mar  9 00:19:33 2010
@@ -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	Tue Mar  9 00:19:33 2010
@@ -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	Tue Mar  9 00:19:33 2010
@@ -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	Tue Mar  9 00:19:33 2010
@@ -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	Tue Mar  9 00:19:33 2010
@@ -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