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

4
source-checker.pl
View File

@ -193,10 +193,13 @@ 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
for my $changes (@changes) {
my $diff = diff "$old/$changes", "$dir/$changes"; my $diff = diff "$old/$changes", "$dir/$changes";
for my $line (split(/\n/, $diff)) { for my $line (split(/\n/, $diff)) {
next unless $line =~ m/^+/; next unless $line =~ m/^+/;
@ -208,6 +211,7 @@ if (-d "$old") {
} }
} }
} }
}
# still some left? # still some left?
if (%patches) { if (%patches) {
$ret = 1; $ret = 1;