1
1

Handle "svn st" output, even if it has a "+" in the middle of the line

This commit was SVN r24915.
Этот коммит содержится в:
Jeff Squyres 2011-07-21 22:42:03 +00:00
родитель 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);
}
}