mklog: Fix extraction of changed file name.
2017-07-17 Yury Gribov <tetra2005@gmail.com> * mklog: Fix extraction of changed file name. From-SVN: r250314
This commit is contained in:
parent
b267968e67
commit
883b0e467a
|
@ -1,3 +1,7 @@
|
||||||
|
2017-07-17 Yury Gribov <tetra2005@gmail.com>
|
||||||
|
|
||||||
|
* mklog: Fix extraction of changed file name.
|
||||||
|
|
||||||
2017-07-17 Georg-Johann Lay <avr@gjlay.de>
|
2017-07-17 Georg-Johann Lay <avr@gjlay.de>
|
||||||
|
|
||||||
* gcc_update (files_and_dependencies)
|
* gcc_update (files_and_dependencies)
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#!/usr/bin/perl
|
#!/usr/bin/perl
|
||||||
# Copyright (C) 2012-2014 Free Software Foundation, Inc.
|
# Copyright (C) 2012-2017 Free Software Foundation, Inc.
|
||||||
#
|
#
|
||||||
# This file is part of GCC.
|
# This file is part of GCC.
|
||||||
#
|
#
|
||||||
|
@ -195,9 +195,21 @@ foreach (@diff_lines) {
|
||||||
} elsif($right eq '/dev/null') {
|
} elsif($right eq '/dev/null') {
|
||||||
$filename = $left;
|
$filename = $left;
|
||||||
} else {
|
} else {
|
||||||
|
my @ldirs = split /[\/\\]/, $left;
|
||||||
|
my @rdirs = split /[\/\\]/, $right;
|
||||||
|
|
||||||
|
$filename = '';
|
||||||
|
while ((my $l = pop @ldirs) && (my $r = pop @rdirs)) {
|
||||||
|
last if ($l ne $r);
|
||||||
|
$filename = "$l/$filename";
|
||||||
|
}
|
||||||
|
$filename =~ s/\/$//;
|
||||||
|
|
||||||
|
if (!$filename) {
|
||||||
print STDERR "Error: failed to parse diff for $left and $right\n";
|
print STDERR "Error: failed to parse diff for $left and $right\n";
|
||||||
exit 1;
|
exit 1;
|
||||||
}
|
}
|
||||||
|
}
|
||||||
$left = $right = undef;
|
$left = $right = undef;
|
||||||
($clname, $relname) = get_clname ($filename);
|
($clname, $relname) = get_clname ($filename);
|
||||||
$cl_entries{$clname} .= "\t* $relname";
|
$cl_entries{$clname} .= "\t* $relname";
|
||||||
|
|
Loading…
Reference in New Issue