--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cross-plat-dev-utils/clean_build_logs.pl	Mon May 10 19:54:49 2010 +0100
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+# Copyright (c) 2010 Symbian Foundation Ltd
+# This component and the accompanying materials are made available
+# under the terms of the License "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+#
+# Initial Contributors:
+# Mike Kinghan, mikek@symbian.org, for Symbian Foundation Ltd - initial contribution.
+
+# Script to delete any Raptor build logs from
+# $EPOCROOT/epoc32/build
+
+use strict;
+use usage;
+use set_epocroot;
+use File::Spec;
+use Cwd; 
+
+usage(\@ARGV,"This script deletes all Raptor build logs");
+set_epocroot();
+my $epocroot = $ENV{'EPOCROOT'};
+my $log_stem = File::Spec->catfile("$epocroot","epoc32","build","Makefile");
+my $log_pattern = "$log_stem\.\*\.log"; 
+my @old_logs = glob($log_pattern);
+if (@old_logs) {
+    print ">>> Deleting Raptor build logs\n";
+    unlink @old_logs;
+}
+exit 0;
+