use perl from user's path, so we don't have to hard-code its location

1 files changed, 10 insertions, 1 deletions

diff --git a/bin/rename-ace.pl b/bin/rename-ace.pl
index c785370f779..0bd045a1a86 100755
--- a/bin/rename-ace.pl
+++ b/bin/rename-ace.pl
@@ -1,4 +1,13 @@
-#!/pkg/gnu/bin/perl -pi
+# $Id$
+
+# The following three lines 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;