diff options
Diffstat (limited to 'tests/rm')
| -rwxr-xr-x | tests/rm/empty-name | 3 | ||||
| -rwxr-xr-x | tests/rm/unreadable | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/tests/rm/empty-name b/tests/rm/empty-name index 43ec11ce7..b709dff1d 100755 --- a/tests/rm/empty-name +++ b/tests/rm/empty-name @@ -30,7 +30,8 @@ $PERL -e 1 > /dev/null 2>&1 || { exit 77 } -exec $PERL -w -I$srcdir/.. -MCoreutils -- - << \EOF +me=`echo $0|sed 's,.*/,,'` +exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF require 5.003; use strict; diff --git a/tests/rm/unreadable b/tests/rm/unreadable index 75b1210e1..c5b9c9877 100755 --- a/tests/rm/unreadable +++ b/tests/rm/unreadable @@ -25,7 +25,8 @@ $PERL -e 1 > /dev/null 2>&1 || { exit 77 } -exec $PERL -w -I$srcdir/.. -MCoreutils -- - << \EOF +me=`echo $0|sed 's,.*/,,'` +exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF require 5.003; use strict; |