diff options
Diffstat (limited to 'TAO/examples/Simple/time-date/run_test.pl')
-rwxr-xr-x | TAO/examples/Simple/time-date/run_test.pl | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/TAO/examples/Simple/time-date/run_test.pl b/TAO/examples/Simple/time-date/run_test.pl index 878cb5a5623..ec0290a14bd 100755 --- a/TAO/examples/Simple/time-date/run_test.pl +++ b/TAO/examples/Simple/time-date/run_test.pl @@ -15,6 +15,23 @@ $conf = PerlACE::LocalFile ("client" . "$PerlACE::svcconf_ext"); # Remove the file before starting the test. unlink $iorfile; +sub add_path { + my($name) = shift; + my($value) = shift; + if (defined $ENV{$name}) { + $ENV{$name} .= ':' . $value + } + else { + $ENV{$name} = $value; + } +} + +# Set the library path for the client to be able to load +# the Time_Date library. +add_path('LD_LIBRARY_PATH', '.'); +add_path('LIBPATH', '.'); +add_path('SHLIB_PATH', '.'); + $SV = new PerlACE::Process ("server"); $CL = new PerlACE::Process ("client", "-f $iorfile -ORBSvcConf $conf"); @@ -33,7 +50,7 @@ if ($client != 0) { $status = 1; } -$SV->Kill (); +$SV->Kill (); unlink $iorfile; |