diff options
Diffstat (limited to 'Tools/Scripts/execAppWithEnv')
-rwxr-xr-x | Tools/Scripts/execAppWithEnv | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/Tools/Scripts/execAppWithEnv b/Tools/Scripts/execAppWithEnv new file mode 100755 index 0000000..d185e2f --- /dev/null +++ b/Tools/Scripts/execAppWithEnv @@ -0,0 +1,38 @@ +#!/usr/bin/perl + +# Copyright (C) 2009 Google Inc. All rights reserved. +# +# Redistribution and use in source and binary forms, with or without +# modification, are permitted provided that the following conditions are +# met: +# +# * Redistributions of source code must retain the above copyright +# notice, this list of conditions and the following disclaimer. +# * Redistributions in binary form must reproduce the above +# copyright notice, this list of conditions and the following disclaimer +# in the documentation and/or other materials provided with the +# distribution. +# * Neither the name of Google Inc. nor the names of its +# contributors may be used to endorse or promote products derived from +# this software without specific prior written permission. +# +# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +# OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT +# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + +# This script launches a program with a given enviroment. +# It is a workaround for a perl bug that apps launched from perl threads +# use the environment of the main thread instead of the current thread. + +my ($unsplitEnvVar, @app) = @ARGV; +# The first argument to this script should be perl code (in quotes) that sets the environment. +eval substr($unsplitEnvVar, 1, -1); +exec(@app); |