*** empty log message ***

1 files changed, 21 insertions, 0 deletions

diff --git a/TAO/orbsvcs/tests/Notify/performance-tests/Priority/Single_Host/run_test.pl b/TAO/orbsvcs/tests/Notify/performance-tests/Priority/Single_Host/run_test.pl
index 3bcbd9cc974..df0a9e40cef 100644
--- a/TAO/orbsvcs/tests/Notify/performance-tests/Priority/Single_Host/run_test.pl
+++ b/TAO/orbsvcs/tests/Notify/performance-tests/Priority/Single_Host/run_test.pl
@@ -7,6 +7,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 
 use lib "../../../../../../../bin";
 use PerlACE::Run_Test;
+use File::Copy;
 
 $experiment_timeout = 60;
 $startup_timeout = 60;
@@ -92,4 +93,24 @@ unlink $notify_ior;
 $Naming->Kill ();
 unlink $naming_ior;
 
+if ($#ARGV > -1)
+  {
+    $results_directory = $ARGV[0];
+    print STDERR "Saving results to $results_directory\n";
+
+    mkdir $results_directory, 0777;
+
+    @list=glob("*.dat");
+    for $file (@list)
+      {
+        copy ("$file", "$results_directory/$file");  
+      }
+
+    @list=glob("*.conf");
+    for $file (@list)
+      {
+        copy ("$file", "$results_directory/$file");  
+      }
+  }
+
 exit $status;