Parent Directory | Revision Log
return modified files from svk
1 | package Frey::SVK; |
2 | use Moose; |
3 | |
4 | sub modified { |
5 | my ($self) = @_; |
6 | my @modified; |
7 | open(my $svk, '-|', 'svk status -q') or die $@; |
8 | while(<$svk>) { |
9 | chomp; |
10 | push @modified, $1 if /^M\s+(.+)/; |
11 | } |
12 | return @modified; |
13 | } |
14 | |
15 | sub as_data { |
16 | my ($self) = @_; |
17 | { |
18 | modified => [ $self->modified ], |
19 | } |
20 | } |
21 | |
22 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |