[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