diff options
Diffstat (limited to 'tests/misc/basename')
-rwxr-xr-x | tests/misc/basename | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/tests/misc/basename b/tests/misc/basename index 65575c020..d35a40683 100755 --- a/tests/misc/basename +++ b/tests/misc/basename @@ -1,6 +1,5 @@ -#!/bin/sh -# -*-perl-*- - +#!/usr/bin/perl +# Test basename. # Copyright (C) 2006-2008 Free Software Foundation, Inc. # This program is free software: you can redistribute it and/or modify @@ -16,12 +15,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; use File::stat; @@ -84,4 +77,3 @@ my $verbose = $ENV{VERBOSE}; my $fail = run_tests ($program_name, $prog, \@Tests, $save_temps, $verbose); exit $fail; -EOF |