diff options
Diffstat (limited to 'tests/misc/basename')
-rwxr-xr-x | tests/misc/basename | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/misc/basename b/tests/misc/basename index 691f15a62..e4c145d17 100755 --- a/tests/misc/basename +++ b/tests/misc/basename @@ -1,7 +1,7 @@ #!/bin/sh # -*-perl-*- -# Copyright (C) 2006 Free Software Foundation, Inc. +# Copyright (C) 2006, 2007 Free Software Foundation, Inc. # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -25,8 +25,8 @@ $PERL -e 1 > /dev/null 2>&1 || { exit 77 } -d=$srcdir/.. -exec $PERL -w -I$d -MCoreutils -- - << \EOF +me=`echo $0|sed 's,.*/,,'` +exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF require 5.003; use strict; use File::stat; |