yudaike/openSUSE-release-tools
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

parse all changes

Browse Source
This commit is contained in:
Stephan Kulow 2014-06-05 11:27:51 +02:00
parent f658aab501
commit f8c7f05e6f
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
source-checker.pl
View File

@ -193,17 +193,21 @@ if (-d "$old") {
rename("$spec.new", "$spec") || die "rename failed";
}
chdir($dir);
my @changes = glob("*.changes");
chdir($odir);
if (%patches) {
# parsing changes
my $diff = diff "$old/$changes", "$dir/$changes";
for my $line (split(/\n/, $diff)) {
next unless $line =~ m/^+/;
$line =~ s/^\+//;
for my $patch (keys %patches) {
if ($line =~ m/$patch/) {
delete $patches{$patch};
for my $changes (@changes) {
my $diff = diff "$old/$changes", "$dir/$changes";
for my $line (split(/\n/, $diff)) {
next unless $line =~ m/^+/;
$line =~ s/^\+//;
for my $patch (keys %patches) {
if ($line =~ m/$patch/) {
delete $patches{$patch};
}
}
}
}