X-Git-Url: https://git.jankratochvil.net/?a=blobdiff_plain;f=bin%2Fcheckspecpatch;h=e883f6c32268386975ad68953706d06c76bc90ed;hb=0b5e1205f7e5fa8b893a00713937dcfa8d182705;hp=994d0585b6ddaf5e857e770a1a76361973fb5ccb;hpb=c695035614cb2a0f7cd16228e8c72c3dc6428ffa;p=nethome.git

diff --git a/bin/checkspecpatch b/bin/checkspecpatch
index 994d058..e883f6c 100755
--- a/bin/checkspecpatch
+++ b/bin/checkspecpatch
@@ -19,12 +19,14 @@ for $ARGV (@ARGV) {
 	my @applyno=sort { $a<=>$b; } ($file=~/^#+\s*%patch(\d+)\b/mig);
 	my %applyno=map(($_=>1),@applyno);
 	while (@source || @apply) {
-		my $source=(shift @source);
+		my $source=$source[0];
 		$source=999999 if !defined $source;
-		my $apply =(shift @apply);
+		my $apply =$apply[0];
 		$apply=999999 if !defined $apply;
-		next if $source eq $apply;
-		if ($apply < $source) {
+		if ($source eq $apply) {
+			shift @apply;
+			shift @source;
+		} elsif ($apply < $source) {
 			shift @apply;
 			warn "$ARGV: excessive: ".'%'."patch$apply\n";
 			$rc=1;