diff options
Diffstat (limited to 'tests/rm/unreadable')
| -rwxr-xr-x | tests/rm/unreadable | 3 |
1 files changed, 2 insertions, 1 deletions
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; |