[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