diff options
author | Kay Ramme <kr@openoffice.org> | 2001-10-05 07:00:22 +0000 |
---|---|---|
committer | Kay Ramme <kr@openoffice.org> | 2001-10-05 07:00:22 +0000 |
commit | 9eea111081a1a2ac31ec6579c5c15d4980954db1 (patch) | |
tree | b1401878cff7e69425e8e4b491a8af3f62867f2f /sal/test/bootstrap.pl | |
parent | 80488e05391ac7e26c7374efa7ce9a0c2d9245b0 (diff) |
added symbol lookup fallback to application rc (#88338#)
Diffstat (limited to 'sal/test/bootstrap.pl')
-rwxr-xr-x | sal/test/bootstrap.pl | 27 |
1 files changed, 25 insertions, 2 deletions
diff --git a/sal/test/bootstrap.pl b/sal/test/bootstrap.pl index 9b70878d3073..538ba23c004a 100755 --- a/sal/test/bootstrap.pl +++ b/sal/test/bootstrap.pl @@ -5,9 +5,9 @@ eval 'exec perl -wS $0 ${1+"$@"}' # # $RCSfile: bootstrap.pl,v $ # -# $Revision: 1.1 $ +# $Revision: 1.2 $ # -# last change: $Author: kr $ $Date: 2001-08-30 12:17:44 $ +# last change: $Author: kr $ $Date: 2001-10-05 08:00:22 $ # # The Contents of this file are made available subject to the terms of # either of the following licenses @@ -116,6 +116,29 @@ if (!$rc) { $state = 0; } + +if ($ENV{GUI} eq "WNT") { + $rc = system "./testbootstrap", "inherited_value", '-env:MYBOOTSTRAPTESTVALUE=$INHERITED_VALUE', "-env:iniName=ini.ini"; +} +else { + $rc = system "./testbootstrap", "inherited_value", '-env:MYBOOTSTRAPTESTVALUE=$INHERITED_VALUE', "-env:iniName=inirc"; +} +if (!$rc) { + $comment = $comment . "inherited value not passed\n"; + $state = 0; +} + +if ($ENV{GUI} eq "WNT") { + $rc = system "./testbootstrap", "inherited_overwritten_value", '-env:MYBOOTSTRAPTESTVALUE=$INHERITED_OVERWRITTEN_VALUE', "-env:iniName=ini.ini"; +} +else { + $rc = system "./testbootstrap", "inherited_overwritten_value", '-env:MYBOOTSTRAPTESTVALUE=$INHERITED_OVERWRITTEN_VALUE', "-env:iniName=inirc"; +} +if (!$rc) { + $comment = $comment . "inherited overwritten value not passed\n"; + $state = 0; +} + delete $ENV{MYBOOTSTRAPTESTVALUE}; |