mirror of
https://github.com/mangosfour/server.git
synced 2025-12-15 01:37:00 +00:00
571f510ee4
(based on cipherCOM's repo commit d3d8934) Signed-off-by: VladimirMangos <vladimir@getmangos.com>
16 lines
607 B
Perl
Executable file
16 lines
607 B
Perl
Executable file
eval '(exit $?0)' && eval 'exec perl -pi -S $0 ${1+"$@"}'
|
|
& eval 'exec perl -pi -S $0 $argv:q'
|
|
if 0;
|
|
|
|
# $Id: main2TMAIN.pl 80826 2008-03-04 14:51:23Z wotte $
|
|
#
|
|
# You may want to run the "find" command with this script, which maybe
|
|
# something like this:
|
|
#
|
|
# find . -type f \( -name "*.C" -o -name "*.cc" -o -name "*.c" -o -name "*.cpp" \) -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/main( *\(int[ A-Za-z]*, *ACE_TCHAR)/ACE_TMAIN$1/g;
|