From cebd3a9da71a30e6f892fdcd8019d5ba5d45eda6 Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Thu, 13 Nov 1997 14:55:10 +0000
Subject: [PATCH] Allow user to specify directory to be indexed

Copied from Perforce
 Change: 18991
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/script/commands/index | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/mps/qa/test/script/commands/index b/mps/qa/test/script/commands/index
index 1dab7a8b41f..2506f3aba56 100644
--- a/mps/qa/test/script/commands/index
+++ b/mps/qa/test/script/commands/index
@@ -8,6 +8,12 @@
 
 require "require";
 
+$index_dir = $qa_args[0];
+
+if ($index_dir) {
+ chdir($index_dir)
+}
+
 opendir(DIR, ".");
 
 @names = readdir(DIR);