18 |
my ($self) = @_; |
my ($self) = @_; |
19 |
my @modified; |
my @modified; |
20 |
my $svk = $self->svk('status -q', sub { |
my $svk = $self->svk('status -q', sub { |
21 |
push @modified, $1 if /^M\s+(.+)/; |
push @modified, $1 if /^(M|A)\s+(.+)/; |
22 |
}); |
}); |
23 |
return @modified; |
return @modified; |
24 |
} |
} |
47 |
my $status = `svk status -q`; |
my $status = `svk status -q`; |
48 |
my $diff = `svk diff`; |
my $diff = `svk diff`; |
49 |
|
|
50 |
|
Frey::Web->meta->apply( $self ) unless $self->can('html_escape'); |
51 |
|
|
52 |
my $html |
my $html |
53 |
= qq|<pre>$status</pre><hr><pre>| |
= qq|<pre>$status</pre><hr><pre>| |
54 |
. $self->html_escape( $diff ) |
. $self->html_escape( $diff ) |