diff options
author | nanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-01-10 04:11:01 +0000 |
---|---|---|
committer | nanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-01-10 04:11:01 +0000 |
commit | e088d618722288c89ce31bf13f2985a852da79b6 (patch) | |
tree | d988150825ea50507399f3b561dc48aac70a8eea /bin/tao_env.pl | |
parent | 8e860d2d2d8d9b5ee9d067d9a732bd28e91f46c0 (diff) | |
download | ATCD-e088d618722288c89ce31bf13f2985a852da79b6.tar.gz |
*** empty log message ***
Diffstat (limited to 'bin/tao_env.pl')
-rwxr-xr-x | bin/tao_env.pl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/bin/tao_env.pl b/bin/tao_env.pl new file mode 100755 index 00000000000..0ac889ef308 --- /dev/null +++ b/bin/tao_env.pl @@ -0,0 +1,17 @@ +eval '(exit $?0)' && eval 'exec perl -pi -S $0 ${1+"$@"}' + & eval 'exec perl -pi -S $0 $argv:q' + if 0; + +# $Id$ +# +# You may want to run the "find" command with this script, which maybe +# something like this: +# +# find . -type f \( -name "*.i" -o -name "*.h" -o -name "*.C" -o -name "*.cc" -o -name "*.c" -o -name "*.cpp" -o -name "*.hpp" -o -name "*.ipp" \) -print | xargs $ACE_ROOT/bin/auto_ptr.perl + +# The first three lines above let this script run without specifying the +# full path to perl, as long as it is in the user's PATH. +# Taken from perlrun man page. + +s/^_env/TAO_IN_ENV/; +s/([^_A-Za-z])_env/$1TAO_IN_ENV/g; |