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