#!/bin/sh
# Copyright (C) 2000-2012 Synology Inc. All rights reserved.

CHECK_AND_REMOVE()
{
	[ -L $1 ] && rm $1
}

DO_REMOVE()
{
	local USR_BIN_FILES="a2p c2ph cpan dprofpp enc2xs find2perl h2ph h2xs instmodsh libnetcfg perl perl5.8.6 perlbug perlcc perldoc perlivp piconv pl2pm prove psed pstruct s2p splain xsubpp"
	local LIB_FILES="libperl.so perl5"

	for file in $USR_BIN_FILES
	do
		$(CHECK_AND_REMOVE "/usr/bin/$file")
	done
	for file in $LIB_FILES
	do
		$(CHECK_AND_REMOVE "/lib/$file")
	done
}

DO_REMOVE

exit 0
