--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/kerneltest/e32test/group/dopvcs.pl	Mon Oct 19 15:55:17 2009 +0100
@@ -0,0 +1,51 @@
+# Copyright (c) 1999-2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# 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:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description:
+# Called from MNT.BAT to do some PVCS stuff.
+# 
+#
+
+use strict;
+
+if($#ARGV !=1) {
+  print <<EOH;
+Usage: dopvcs.pl <rune1> <rune2>
+
+Basically, only call this from mnt.bat
+
+EOH
+exit 1;	  
+}
+
+  
+open(X, "/e32test/group/dir.prj") || die "Can't find the directory list, $!";
+
+#Slurp
+my @dirs=<X>;
+
+close X;
+
+# Zap comments
+foreach (@dirs) {
+  if(/!/) {
+	s/^(.*)!.*/$1/;
+  }
+}
+
+chomp @dirs;
+
+# Now the weird runes
+
+foreach (grep /\w/, @dirs) {
+  system("t:\\pvcs\\$ARGV[0] E32TEST $_ LI $ARGV[1]");
+}