/[Frey]/trunk/lib/Frey/SVK.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/SVK.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 653 by dpavlin, Sun Nov 30 23:49:32 2008 UTC revision 681 by dpavlin, Tue Dec 2 17:34:23 2008 UTC
# Line 3  use Moose; Line 3  use Moose;
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    
# Line 129  sub as_markup { Line 130  sub as_markup {
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;
Legend:
Removed from v.653  
changed lines
  Added in v.681
  ViewVC Help
Powered by ViewVC 1.1.26