3 |
|
|
4 |
extends 'Frey'; |
extends 'Frey'; |
5 |
with 'Frey::Web'; |
with 'Frey::Web'; |
6 |
|
with 'Frey::Path'; |
7 |
|
|
8 |
use Moose::Util::TypeConstraints; |
use Moose::Util::TypeConstraints; |
9 |
|
|
130 |
|
|
131 |
if ( $self->action eq 'postpone' ) { |
if ( $self->action eq 'postpone' ) { |
132 |
my $old = $self->path; |
my $old = $self->path; |
133 |
my $new = $old . '.postponed'; |
my $new = $old; |
134 |
die "Allready have $new" if -e $new; |
$new =~ s{/([^/]+)$}{/.postponed.$1}; |
135 |
|
|
136 |
|
die "Allready have ", $self->path_size($new) if -e $new; |
137 |
$cmd = "mv $old $new && svk revert $old"; |
$cmd = "mv $old $new && svk revert $old"; |
138 |
} elsif ( $self->action ) { |
} elsif ( $self->action ) { |
139 |
$cmd = 'svk ' . $self->action . ' ' . $self->path; |
$cmd = 'svk ' . $self->action . ' ' . $self->path; |