From: lace <>
Date: Mon, 18 Dec 2006 22:01:43 +0000 (+0000)
Subject: Fixed FUBERed shifting of the compared patches.
X-Git-Url: https://git.jankratochvil.net/?p=nethome.git;a=commitdiff_plain;h=b957297d5680f9f84fe339e2b6ea73a44280ce04

Fixed FUBERed shifting of the compared patches.
---

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;