my @applyno=sort { $a<=>$b; } ($file=~/^#+\s*%patch(\d+)\b/mig);
my %applyno=map(($_=>1),@applyno);
while (@source || @apply) {
my @applyno=sort { $a<=>$b; } ($file=~/^#+\s*%patch(\d+)\b/mig);
my %applyno=map(($_=>1),@applyno);
while (@source || @apply) {