diff options
author | Adam Mitz <mitza-oci@users.noreply.github.com> | 2006-08-02 21:31:39 +0000 |
---|---|---|
committer | Adam Mitz <mitza-oci@users.noreply.github.com> | 2006-08-02 21:31:39 +0000 |
commit | 891358c4d4376a24761818cccbf21a4cd0bf9c5c (patch) | |
tree | 9416f23a795e00d87deb45c6cbbfa22cfdb79fd2 | |
parent | c8e859b9b9948488888ac28be9485e9dbcc75678 (diff) | |
download | ATCD-891358c4d4376a24761818cccbf21a4cd0bf9c5c.tar.gz |
Wed Aug 2 21:27:59 UTC 2006 Adam Mitz <mitza@ociweb.com>
-rw-r--r-- | ACE/ChangeLog | 11 | ||||
-rw-r--r-- | ACE/bin/PerlACE/Run_Test.pm | 8 |
2 files changed, 19 insertions, 0 deletions
diff --git a/ACE/ChangeLog b/ACE/ChangeLog index 14eb341110e..914275738fe 100644 --- a/ACE/ChangeLog +++ b/ACE/ChangeLog @@ -1,3 +1,14 @@ +Wed Aug 2 21:27:59 UTC 2006 Adam Mitz <mitza@ociweb.com> + + * bin/PerlACE/Run_Test.pm: + + Added two new packaged-scoped variables, $PerlACE::ACE_ROOT and + $PerlACE::TAO_ROOT. $PerlACE::TAO_ROOT is set to the TAO_ROOT + environment variable, if one exists. If not it is set to + $ACE_ROOT/TAO. $PerlACE::ACE_ROOT is the same as the ACE_ROOT + envrionment variable so it's just there for convenience and for + symmetry. + Wed Aug 2 20:19:04 UTC 2006 Adam Mitz <mitza@ociweb.com> * bin/tao_other_tests.lst: diff --git a/ACE/bin/PerlACE/Run_Test.pm b/ACE/bin/PerlACE/Run_Test.pm index 86727556ab2..699d476ba25 100644 --- a/ACE/bin/PerlACE/Run_Test.pm +++ b/ACE/bin/PerlACE/Run_Test.pm @@ -11,6 +11,14 @@ package PerlACE; use File::Spec; use Cwd; +$PerlACE::ACE_ROOT = $ENV{ACE_ROOT}; +$PerlACE::TAO_ROOT; +if(exists $ENV{TAO_ROOT}) { + $PerlACE::TAO_ROOT = $ENV{TAO_ROOT}; +} else { + $PerlACE::TAO_ROOT = "$PerlACE::ACE_ROOT/TAO"; +} + my $config = new PerlACE::ConfigList; $PerlACE::VxWorks_Test = $config->check_config("VxWorks"); |