use the same shebang for perl

10 files changed, 10 insertions, 28 deletions

diff --git a/devel/perlasm/cpuid-x86.pl b/devel/perlasm/cpuid-x86.pl
index 8eb12ef5f7..fa9c14e577 100644
--- a/devel/perlasm/cpuid-x86.pl
+++ b/devel/perlasm/cpuid-x86.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/env perl
+#!/usr/bin/perl
 #
 # ====================================================================
 # Written by Nikos Mavrogiannopoulos
diff --git a/doc/scripts/cleanup-autogen.pl b/doc/scripts/cleanup-autogen.pl
index 889ad6439f..a6b19e9e08 100755
--- a/doc/scripts/cleanup-autogen.pl
+++ b/doc/scripts/cleanup-autogen.pl
@@ -1,6 +1,4 @@
-eval '(exit $?0)' && eval 'exec perl -wS "$0" ${1+"$@"}'
-  & eval 'exec perl -wS "$0" $argv:q'
-    if 0;
+#!/usr/bin/perl
 
 # Copyright (C) 2012 Free Software Foundation, Inc.
 #
diff --git a/doc/scripts/gdoc b/doc/scripts/gdoc
index 62196c5203..ceaa214427 100755
--- a/doc/scripts/gdoc
+++ b/doc/scripts/gdoc
@@ -1,6 +1,4 @@
-eval '(exit $?0)' && eval 'exec perl "$0" ${1+"$@"}'
-  & eval 'exec perl "$0" $argv:q'
-    if 0;
+#!/usr/bin/perl
 
 ## Copyright (c) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Simon Josefsson
 ##                    added -texinfo, -listfunc
diff --git a/doc/scripts/getfuncs-map.pl b/doc/scripts/getfuncs-map.pl
index 769693670c..d59336b7be 100755
--- a/doc/scripts/getfuncs-map.pl
+++ b/doc/scripts/getfuncs-map.pl
@@ -1,6 +1,4 @@
-eval '(exit $?0)' && eval 'exec perl -wST "$0" ${1+"$@"}'
-  & eval 'exec perl -wST "$0" $argv:q'
-    if 0;
+#!/usr/bin/perl
 
 # Copyright (C) 2011-2012 Free Software Foundation, Inc.
 # Copyright (C) 2013 Nikos Mavrogiannopoulos
diff --git a/doc/scripts/getfuncs.pl b/doc/scripts/getfuncs.pl
index 69137405f0..5de060fd8a 100755
--- a/doc/scripts/getfuncs.pl
+++ b/doc/scripts/getfuncs.pl
@@ -1,6 +1,4 @@
-eval '(exit $?0)' && eval 'exec perl -wST "$0" ${1+"$@"}'
-  & eval 'exec perl -wST "$0" $argv:q'
-    if 0;
+#!/usr/bin/perl
 
 # Copyright (C) 2011-2012 Free Software Foundation, Inc.
 # Copyright (C) 2013 Nikos Mavrogiannopoulos
diff --git a/doc/scripts/sort1.pl b/doc/scripts/sort1.pl
index c84315cc95..3e17c614eb 100755
--- a/doc/scripts/sort1.pl
+++ b/doc/scripts/sort1.pl
@@ -1,6 +1,4 @@
-eval '(exit $?0)' && eval 'exec perl -wST "$0" ${1+"$@"}'
-  & eval 'exec perl -wST "$0" $argv:q'
-    if 0;
+#!/usr/bin/perl
 
 # Copyright (C) 2002-2012 Free Software Foundation, Inc.
 #
diff --git a/doc/scripts/sort2.pl b/doc/scripts/sort2.pl
index 89b031e61f..bd9fed4594 100755
--- a/doc/scripts/sort2.pl
+++ b/doc/scripts/sort2.pl
@@ -1,6 +1,4 @@
-eval '(exit $?0)' && eval 'exec perl -wS "$0" ${1+"$@"}'
-  & eval 'exec perl -wS "$0" $argv:q'
-    if 0;
+#!/usr/bin/perl
 
 # Copyright (C) 2004-2012 Free Software Foundation, Inc.
 #
diff --git a/doc/scripts/split-texi.pl b/doc/scripts/split-texi.pl
index edb99fedc9..34978d3056 100755
--- a/doc/scripts/split-texi.pl
+++ b/doc/scripts/split-texi.pl
@@ -1,6 +1,4 @@
-eval '(exit $?0)' && eval 'exec perl -wS "$0" ${1+"$@"}'
-  & eval 'exec perl -wS "$0" $argv:q'
-    if 0;
+#!/usr/bin/perl
 
 # Copyright (C) 2011-2012 Free Software Foundation, Inc.
 #
diff --git a/doc/scripts/split.pl b/doc/scripts/split.pl
index fa8669a60d..bd666503dd 100755
--- a/doc/scripts/split.pl
+++ b/doc/scripts/split.pl
@@ -1,6 +1,4 @@
-eval '(exit $?0)' && eval 'exec perl -wS "$0" ${1+"$@"}'
-  & eval 'exec perl -wS "$0" $argv:q'
-    if 0;
+#!/usr/bin/perl
 
 # Copyright (C) 2011-2012 Free Software Foundation, Inc.
 #
diff --git a/tests/nist-pkits/build-chain b/tests/nist-pkits/build-chain
index 0cd4ec8cf5..f595b23093 100755
--- a/tests/nist-pkits/build-chain
+++ b/tests/nist-pkits/build-chain
@@ -1,6 +1,4 @@
-eval '(exit $?0)' && eval 'exec perl -wST "$0" ${1+"$@"}'
-  & eval 'exec perl -wST "$0" $argv:q'
-    if 0;
+#!/usr/bin/perl
 
 use strict;