Parent Directory | Revision Log | Patch
revision 576 by dpavlin, Fri Nov 28 00:09:51 2008 UTC | revision 579 by dpavlin, Fri Nov 28 01:16:21 2008 UTC | |
---|---|---|
# | Line 18 sub modified { | Line 18 sub modified { |
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|A)\s+(.+)/; | push @modified, $1 if /^\w+\s+(.+)/; |
22 | }); | }); |
23 | return @modified; | return @modified; |
24 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |