File dolinks of Package Meta

#!/bin/bash

pushd packages 1>/dev/null
    allfiles=(*.tar.xz *.dif *.moves *.removes *.list *.requires *.post texlive-specs-rpmlintrc texlive-specs.changes)
popd 1>/dev/null

OFS="$IFS"
for spec in targets/texlive-specs-*/*.spec
do
    exec 4>&1
    files=($(sed -rn '/(Patch|Source)([0-9]+):\s/{s/[^:\s]+:\s+//p}' $spec))
    IFS='|'
    reg="${files[*]}"
    IFS="$OFS"
    IFS='
'
    skipped=($(echo "${allfiles[*]}"| sort -u | grep -vE "^(${reg//./\.})$"))
    IFS="$OFS"
    exec 4> "${spec%/*.spec}/_link"
cat - >&4 <<-'EOF'
	<link cicount="copy" package="texlive-specs">
	  <patches>
EOF
    for file in ${skipped[@]}
    do
	echo "    <delete name='"${file}"' />"  >&4
    done
cat - >&4 <<-'EOF'
	    <delete name='texlive-specs-rpmlintrc' />
	  </patches>
	</link>
EOF
    exec 4>&1
done