--- trunk/lib/Frey/SVK.pm 2008/11/30 23:49:32 653 +++ trunk/lib/Frey/SVK.pm 2008/12/02 17:34:23 681 @@ -3,6 +3,7 @@ extends 'Frey'; with 'Frey::Web'; +with 'Frey::Path'; use Moose::Util::TypeConstraints; @@ -129,8 +130,10 @@ if ( $self->action eq 'postpone' ) { my $old = $self->path; - my $new = $old . '.postponed'; - die "Allready have $new" if -e $new; + my $new = $old; + $new =~ s{/([^/]+)$}{/.postponed.$1}; + + die "Allready have ", $self->path_size($new) if -e $new; $cmd = "mv $old $new && svk revert $old"; } elsif ( $self->action ) { $cmd = 'svk ' . $self->action . ' ' . $self->path;