diff options
author | nanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2003-05-27 02:16:33 +0000 |
---|---|---|
committer | nanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2003-05-27 02:16:33 +0000 |
commit | c63714e5b30fe23b22a22612533e51fb167c1eb1 (patch) | |
tree | 6d82c96622b9da14a7d67584ba7a536b3449d12f | |
parent | 4bb3587060736ed600817faff02234e42921bfc9 (diff) | |
download | ATCD-c63714e5b30fe23b22a22612533e51fb167c1eb1.tar.gz |
ChangeLogTag:Mon May 26 21:14:54 2003 Nanbor Wang <nanbor@cs.wustl.edu>
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | bin/PerlACE/Process.pm | 14 |
2 files changed, 20 insertions, 0 deletions
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; |