Handle "svn st" output, even if it has a "+" in the middle of the line
This commit was SVN r24915.
Этот коммит содержится в:
родитель
edaa7b96e4
Коммит
d95f2361f8
@ -95,7 +95,13 @@ my @files;
|
||||
while (<CMD>) {
|
||||
chomp;
|
||||
if ($_ =~ /^M/ || $_ =~ /^A/) {
|
||||
my ($state, $filename) = split(/\s+/, $_);
|
||||
my @tokens = split(/\s+/, $_);
|
||||
# Handle output of both forms:
|
||||
# M filenameA
|
||||
# A + filenameB
|
||||
my $filename = $tokens[1];
|
||||
$filename = $tokens[2]
|
||||
if ($tokens[1] =~ /\+/);
|
||||
push(@files, $filename);
|
||||
}
|
||||
}
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user