3 # Check all '^Patch\d+' lines and '^%patch' lines are matching.
8 @ARGV=<*.spec> if !@ARGV;
13 open FILE,$ARGV or die "open $ARGV: $!";
14 my $file=do { undef $/; <FILE>; } or die "read $ARGV: $!";
15 close FILE or die "close $ARGV: $!";
17 my @source =sort { $a<=>$b; } ($file=~/^\s*patch(\d+)\s*:/mig);
18 my @apply =sort { $a<=>$b; } ($file=~/^\s*%patch(\d+)\b/mig);
19 my @applyno=sort { $a<=>$b; } ($file=~/^#+\s*%patch(\d+)\b/mig);
20 my %applyno=map(($_=>1),@applyno);
21 while (@source || @apply) {
22 my $source=$source[0];
23 $source=999999 if !defined $source;
25 $apply=999999 if !defined $apply;
26 if ($source eq $apply) {
29 } elsif ($apply < $source) {
31 warn "$ARGV: excessive: ".'%'."patch$apply\n";
33 } elsif ($source < $apply) {
35 if (!$applyno{$source}) {
36 warn "$ARGV: excessive: Patch$source\n";
39 warn "$ARGV: (commented ".'%'."patch$source: Patch$source)\n";
42 die if $apply ne $source;