Partial restore r343675 (leave some warnings/errors output)

Suggested by:	ak@
Reviewed by:	ak@

1 files changed, 5 insertions, 0 deletions

diff --git a/lang/perl5.14/files/use.perl b/lang/perl5.14/files/use.perl
index ad764abc4884..3f1f15724d8f 100644
--- a/lang/perl5.14/files/use.perl
+++ b/lang/perl5.14/files/use.perl
@@ -21,6 +21,7 @@ do_remove_links()
 	bins=`/bin/ls /usr/bin/*perl*5.* ${PKG_PREFIX}/bin/*perl*5.* 2>/dev/null`
 	for binary in ${bins} ; do
 		if [ -L "${binary}" ] ; then
+			echo "use.perl: Removing ${binary} installed by an older perl port"
 			/bin/rm -f "${binary}"
 		fi
 	done
@@ -30,11 +31,15 @@ do_create_links()
 {
 	for binary in ${special_link_list} ; do
 		if [ -f "/usr/bin/${binary}" ] ; then
+			echo "use.perl: Backing up /usr/bin/${binary} as /usr/bin/${binary}.freebsd"
 			/bin/mv -f "/usr/bin/${binary}" "/usr/bin/${binary}.freebsd"
 		fi
 		if [ -e "/usr/bin/${binary}" ] ; then
+			echo "use.perl: /usr/bin/${binary} is still there, which should not happen"
 		elif [ -e "${PKG_PREFIX}/bin/perl${PERL_VERSION}" ] ; then
 			/bin/ln -sf "${PKG_PREFIX}/bin/perl${PERL_VERSION}" "/usr/bin/${binary}"
+		else
+			echo "use.perl: ${PKG_PREFIX}/bin/perl${PERL_VERSION} is not there, a symlink won't do any good"
 		fi
 	done
 }