From c63714e5b30fe23b22a22612533e51fb167c1eb1 Mon Sep 17 00:00:00 2001
From: nanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>
Date: Tue, 27 May 2003 02:16:33 +0000
Subject: ChangeLogTag:Mon May 26 21:14:54 2003  Nanbor Wang 
 <nanbor@cs.wustl.edu>

---
 ChangeLog              |  6 ++++++
 bin/PerlACE/Process.pm | 14 ++++++++++++++
 2 files changed, 20 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 11a67e66b27..1e00bc42a34 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+Mon May 26 21:14:54 2003  Nanbor Wang  <nanbor@cs.wustl.edu>
+
+	* bin/PerlACE/Process.pm: Added a new "static" function
+	  "Normalize_Executable_Name" so that we can figure out the
+	  correct location of a "release" build executables.
+
 Mon May 26 18:23:41 2003  Steve Huston  <shuston@riverace.com>
 
 	* ace/MEM_Acceptor.cpp (accept): Replace a C-style cast with
diff --git a/bin/PerlACE/Process.pm b/bin/PerlACE/Process.pm
index 62c0565cb2c..25c46e02ddc 100644
--- a/bin/PerlACE/Process.pm
+++ b/bin/PerlACE/Process.pm
@@ -35,4 +35,18 @@ else {
 	require PerlACE::Process_Unix;
 }
 
+sub Normalize_Executable_Name
+{
+    my $executable = shift;
+
+    my $basename = basename ($executable);
+    my $dirname = dirname ($executable). '/';
+
+    $executable = $dirname.$PerlACE::Process::ExeSubDir.$basename.".EXE";
+
+    $executable =~ s/\//\\/g; # / <- # color coding issue in devenv
+
+    return $executable;
+}
+
 1;
-- 
cgit v1.2.1