1 files changed, 2 insertions, 9 deletions
diff --git a/tests/misc/cut b/tests/misc/cut
index 67e280bed..87d06c6ab 100755
--- a/tests/misc/cut
+++ b/tests/misc/cut
@@ -1,5 +1,5 @@
-#!/bin/sh
-# Test "cut".                                                   -*- perl -*-
+#!/usr/bin/perl
+# Test "cut".
 
 # Copyright (C) 2006-2008 Free Software Foundation, Inc.
 
@@ -16,12 +16,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-: ${srcdir=.}
-. $top_srcdir/tests/require-perl
-
-me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
-require 5.003;
 use strict;
 
 (my $ME = $0) =~ s|.*/||;
@@ -162,4 +156,3 @@ my $verbose = $ENV{VERBOSE};
 
 my $fail = run_tests ($ME, $prog, \@Tests, $save_temps, $verbose);
 exit $fail;
-EOF