--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/common/tools/mergeepoc32.pl	Fri May 01 15:07:37 2009 +0100
@@ -0,0 +1,12 @@
+#!perl -w
+use strict;
+
+# Assume that all rnd repositories are delivered onto the build machine in \rnd\category\name\epoc32\...
+
+my @rndRepositories = glob "/rnd/*/*";
+foreach (@rndRepositories)
+{
+	s{/}{\\}g;
+	system("xcopy /Q/C/I/Y/E $_\\epoc32 \\epoc32 > nul:");
+}
+