# @FUNCTION: perl_rm_files

# @USAGE: perl_rm_files "file_1" "file_2"

# @DESCRIPTION:

# Remove certain files from a Perl release and remove them from the MANIFEST

# while we're there.

# 

# Most useful in src_prepare for nuking bad tests, and is highly recommended

# for any tests like 'pod.t', 'pod-coverage.t' or 'kwalitee.t', as what they

# test is completely irrelevant to end users, and frequently fail simply

# because the authors of Test::Pod... changed their recommendations, and thus

# failures are only useful feedback to Authors, not users.

#

# Removing from MANIFEST also avoids needless log messages warning

# users about files "missing from their kit".

perl_rm_files() {

	debug-print-function $FUNCNAME "$@"

	local skipfile=${S}/.gentoo_makefile_skip

	local manifile=${S}/MANIFEST

	local manitemp=${S}/.gentoo_manifest_temp

	for filename in "$@"; do

		einfo "Removing un-needed ${filename}";

		# Remove the file

		rm ${S}/$filename

		echo ${filename} >> ${skipfile}

	done

	grep -v -F -f $skipfile $manifile > $manitemp

	mv $manitemp $manifile

	rm $skipfile;

}