summaryrefslogtreecommitdiff
path: root/bin/rename-ace.pl
diff options
context:
space:
mode:
authorlevine <levine@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>1998-12-30 03:34:28 +0000
committerlevine <levine@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>1998-12-30 03:34:28 +0000
commitb6096e014014be1257336ff7e57105bfce9f502b (patch)
tree2c6b1ad6764ebc84368aaa6abd2fedee809a95e9 /bin/rename-ace.pl
parent1d9693f1457c564c343508ea1f10ebe390c88da4 (diff)
downloadATCD-b6096e014014be1257336ff7e57105bfce9f502b.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/rename-ace.pl')
-rwxr-xr-xbin/rename-ace.pl10
1 files changed, 5 insertions, 5 deletions
diff --git a/bin/rename-ace.pl b/bin/rename-ace.pl
index 0bd045a1a86..0e1bd66069f 100755
--- a/bin/rename-ace.pl
+++ b/bin/rename-ace.pl
@@ -1,13 +1,13 @@
+eval '(exit $?0)' && eval 'exec perl -pi -S $0 ${1+"$@"}'
+ & eval 'exec perl -pi -S $0 $argv:q'
+ if 0;
+
# $Id$
-# 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/\bAcceptor\b/ACE_Acceptor/g;
s/\bAddr\b/ACE_Addr/g;
s/\bArgument_Vector\b/ACE_ARGV/g;