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

TMP=`dirname $SYNOPKG_TEMP_LOGFILE`
FILES=`cat /var/packages/Perl/scripts/list`

mv $SYNOPKG_PKGDEST $TMP

for f in $FILES; do
	if [ ! -d $TMP/$f ]; then
		rm $TMP/$f
	fi
done

exit 0
