--- a/common/tools/ats/bctest/pim/clock/clock.pl	Thu Oct 01 14:54:20 2009 +0100
+++ b/common/tools/ats/bctest/pim/clock/clock.pl	Sat Oct 03 21:54:15 2009 +0100
@@ -20,7 +20,7 @@
 use File::Path;
 
 unlink "clocktest.zip";
-##rmtree "temp";
+rmtree "temp";
 mkpath "temp/clocktest/general/testframework";
 mkpath "temp/clocktest/general/bcardtest2";
 mkpath "temp/clocktest/winscw_udeb/z/resource/plugins";
@@ -28,9 +28,9 @@
 my $epoc=$ENV{'EPOCROOT'} . "epoc32/";
 copy("clock.xml",	"temp/test.xml");
 
-copy($epoc . "release/winscw/udeb/bctestclock.dll",					"temp/clocktest/winscw_udeb/bctestclock.dll");
-copy($epoc . "winscw/c/testframework/testframework_pimclock.ini",	"temp/clocktest/general/testframework/testframework_pimclock.ini");
-copy($epoc . "winscw/c/testframework/tcbctestclock.cfg",			"temp/clocktest/general/testframework/tcbctestclock.cfg");
-copy($epoc . "winscw/c/testframework/ui_bctestclock.cfg",			"temp/clocktest/general/testframework/ui_bctestclock.cfg");
+copy($epoc . "release/winscw/udeb/bctestclock.dll",					"temp/clocktest/winscw_udeb/bctestclock.dll") or die "failed : $!";
+copy($epoc . "winscw/c/testframework/testframework_pimclock.ini",	"temp/clocktest/general/testframework/testframework_pimclock.ini") or die "failed : $!";
+copy($epoc . "winscw/c/testframework/tcbctestclock.cfg",			"temp/clocktest/general/testframework/tcbctestclock.cfg") or die "failed : $!";
+copy($epoc . "winscw/c/testframework/ui_bctestclock.cfg",			"temp/clocktest/general/testframework/ui_bctestclock.cfg") or die "failed : $!";
 
 system("7z a -tzip clocktest.zip ./temp/*");