1 #!perl -w

     2 use strict;

     3 

     4 # Assume that all rnd repositories are delivered onto the build machine in \rnd\category\name\epoc32\...

     5 

     6 my @rndRepositories = glob "/rnd/*/*";

     7 foreach (@rndRepositories)

     8 {

     9 	s{/}{\\}g;

    10 	system("xcopy /Q/C/I/Y/E $_\\epoc32 \\epoc32 > nul:");

    11 }

    12