1 files changed, 17 insertions, 1 deletions
diff --git a/TAO/tests/Connection_Purging/run_test.pl b/TAO/tests/Connection_Purging/run_test.pl
index 289346ecc03..35ba3b40120 100755
--- a/TAO/tests/Connection_Purging/run_test.pl
+++ b/TAO/tests/Connection_Purging/run_test.pl
@@ -8,8 +8,24 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 unshift @INC, '../../../bin';
 require Process;
 require ACEutils;
+use Cwd;
 
-$T = Process::Create ($EXEPREFIX."Connection_Purging -ORBCollocation no -d".$EXE_EXT);
+$cwd = getcwd();
+for($i = 0; $i <= $#ARGV; $i++) {
+  if ($ARGV[$i] eq '-chorus') {
+    $i++;
+    if (defined $ARGV[$i]) {
+      $EXEPREFIX = "rsh $ARGV[$i] arun $cwd$DIR_SEPARATOR";
+    }
+    else {
+      print STDERR "The -chorus option requires the hostname of the target\n";
+      exit(1);
+    }
+  }  
+}  
+
+$T = Process::Create ($EXEPREFIX."Connection_Purging".$EXE_EXT,
+                      "-ORBCollocation no -d");
 
 $client = $T->TimedWait (60);
 if ($client == -1) {