--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cross-plat-dev-utils/weed_backups.pl	Mon May 10 19:54:49 2010 +0100
@@ -0,0 +1,51 @@
+#!/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 delete backup files from the package directory.
+
+use strict;
+use usage;
+use File::Spec;
+use set_epocroot;
+
+sub delete_backups($);
+
+usage(\@ARGV,"This script deletes all files in the package directory " .
+	"with names ending in '~'\n");
+set_epocroot();
+my $epocroot = $ENV{'EPOCROOT'};
+my $build_pkg_dir = File::Spec->catfile("$epocroot","build");
+my $deletes = 0;
+delete_backups($build_pkg_dir);
+print ">>> $deletes files deleted\n"; 
+exit 0;
+
+sub delete_backups($)
+{
+	my($path) = @_; 
+	print ">>> Weeding dir \"$path\"\n";
+	$path = File::Spec->catfile("$path",'*');
+	my @entries = glob($path);
+	for my $entry (@entries) {
+		if( -d $entry) {
+			delete_backups($entry);
+		} else {
+			my @backups = grep(/~$/,@entries);
+			foreach (@backups) {
+				unlink $_;
+				# Querying the result of unlink() for success is unreliable
+				# on some tested systems.
+				die "Failed to delete \"$_\"", if ( -f $_);
+				++$deletes;
+			}
+		}
+	}
+}
+