diff options
author | levine <levine@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-12-30 03:34:28 +0000 |
---|---|---|
committer | levine <levine@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-12-30 03:34:28 +0000 |
commit | b315f36a9c5999c2baf43331585526bb2d3f91af (patch) | |
tree | 2c6b1ad6764ebc84368aaa6abd2fedee809a95e9 /bin/Service_Config.perl | |
parent | 8017690a4944e0e138075c8c42048c89af89bb22 (diff) | |
download | ATCD-b315f36a9c5999c2baf43331585526bb2d3f91af.tar.gz |
moved eval magic to very first line of file, so that the first line doesn't start with a #
Diffstat (limited to 'bin/Service_Config.perl')
-rwxr-xr-x | bin/Service_Config.perl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/bin/Service_Config.perl b/bin/Service_Config.perl index e54e92b9c3c..2699881eee7 100755 --- a/bin/Service_Config.perl +++ b/bin/Service_Config.perl @@ -1,3 +1,7 @@ +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 @@ -5,14 +9,10 @@ # # 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/Service_Config.perl -# The following three lines let this script run without specifying the +# 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. -eval '(exit $?0)' && eval 'exec perl -pi -S $0 ${1+"$@"}' - & eval 'exec perl -pi -S $0 $argv:q' - if 0; - s/ACE_Service_Config::run_reactor_event_loop/ACE_Reactor::run_event_loop/g; s/ACE_Service_Config::end_reactor_event_loop/ACE_Reactor::end_event_loop/g; s/ACE_Service_Config::reactor_event_loop_done/ACE_Reactor::event_loop_done/g; |