133 |
die "Allready have $new" if -e $new; |
die "Allready have $new" if -e $new; |
134 |
$cmd = "mv $old $new && svk revert $old"; |
$cmd = "mv $old $new && svk revert $old"; |
135 |
} elsif ( $self->action ) { |
} elsif ( $self->action ) { |
136 |
my $cmd = 'svk ' . $self->action . ' ' . $self->path; |
$cmd = 'svk ' . $self->action . ' ' . $self->path; |
137 |
if ( $self->action eq 'commit' ) { |
if ( $self->action eq 'commit' ) { |
138 |
confess "need commit message" unless $self->commit_message; |
confess "need commit message" unless $self->commit_message; |
139 |
my $msg = $self->commit_message; |
my $msg = $self->commit_message; |