summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorJim Meyering <meyering@redhat.com>2008-04-18 16:51:34 +0200
committerJim Meyering <meyering@redhat.com>2008-04-21 00:02:00 +0200
commitc51900a6bd655e7dd596fa6888a0e521e6b5a6bd (patch)
tree9457237c4fc1c71184bbccbfb69e1134d0b805fc /tests
parentb214b51ca01f4b81f4381aa7ac7c3dba2911d588 (diff)
downloadcoreutils-c51900a6bd655e7dd596fa6888a0e521e6b5a6bd.tar.xz
tests: adjust perl -I to use $top_srcdir/tests, not $srcdir/..
Diffstat (limited to 'tests')
-rwxr-xr-xtests/dd/skip-seek2
-rwxr-xr-xtests/du/files0-from2
-rwxr-xr-xtests/misc/base642
-rwxr-xr-xtests/misc/basename2
-rwxr-xr-xtests/misc/cut2
-rwxr-xr-xtests/misc/date2
-rwxr-xr-xtests/misc/dircolors2
-rwxr-xr-xtests/misc/dirname2
-rwxr-xr-xtests/misc/expand2
-rwxr-xr-xtests/misc/expr2
-rwxr-xr-xtests/misc/factor2
-rwxr-xr-xtests/misc/fmt2
-rwxr-xr-xtests/misc/fold2
-rwxr-xr-xtests/misc/head-elide-tail2
-rwxr-xr-xtests/misc/ls-misc2
-rwxr-xr-xtests/misc/md5sum2
-rwxr-xr-xtests/misc/md5sum-newline2
-rwxr-xr-xtests/misc/mktemp2
-rwxr-xr-xtests/misc/od2
-rwxr-xr-xtests/misc/paste2
-rwxr-xr-xtests/misc/pr2
-rwxr-xr-xtests/misc/seq2
-rwxr-xr-xtests/misc/sha1sum2
-rwxr-xr-xtests/misc/sha1sum-vec2
-rwxr-xr-xtests/misc/sha224sum2
-rwxr-xr-xtests/misc/sha256sum2
-rwxr-xr-xtests/misc/sha384sum2
-rwxr-xr-xtests/misc/sha512sum2
-rwxr-xr-xtests/misc/sort-merge2
-rwxr-xr-xtests/misc/stat-printf2
-rwxr-xr-xtests/misc/sum2
-rwxr-xr-xtests/misc/test-diag2
-rwxr-xr-xtests/misc/tsort2
-rwxr-xr-xtests/misc/unexpand2
-rwxr-xr-xtests/misc/wc-files0-from2
-rwxr-xr-xtests/misc/xstrtol2
-rwxr-xr-xtests/mv/i-12
-rwxr-xr-xtests/rm/empty-name2
-rwxr-xr-xtests/rm/unreadable2
39 files changed, 39 insertions, 39 deletions
diff --git a/tests/dd/skip-seek b/tests/dd/skip-seek
index 80795d871..2bedd3027 100755
--- a/tests/dd/skip-seek
+++ b/tests/dd/skip-seek
@@ -24,7 +24,7 @@ SCRIPT_NAME=$0
export SCRIPT_NAME
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/du/files0-from b/tests/du/files0-from
index 583311685..dc626d244 100755
--- a/tests/du/files0-from
+++ b/tests/du/files0-from
@@ -21,7 +21,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
#/
require 5.003;
use strict;
diff --git a/tests/misc/base64 b/tests/misc/base64
index 2784a3c09..318f26d7a 100755
--- a/tests/misc/base64
+++ b/tests/misc/base64
@@ -21,7 +21,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/basename b/tests/misc/basename
index 1d400b3fd..fb4f64083 100755
--- a/tests/misc/basename
+++ b/tests/misc/basename
@@ -20,7 +20,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
use File::stat;
diff --git a/tests/misc/cut b/tests/misc/cut
index 003b3635a..fd3c1770c 100755
--- a/tests/misc/cut
+++ b/tests/misc/cut
@@ -20,7 +20,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/date b/tests/misc/date
index 0c0ddaa77..ec43bb7b9 100755
--- a/tests/misc/date
+++ b/tests/misc/date
@@ -20,7 +20,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/dircolors b/tests/misc/dircolors
index 8b5734ba5..e235ec3a1 100755
--- a/tests/misc/dircolors
+++ b/tests/misc/dircolors
@@ -20,7 +20,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/dirname b/tests/misc/dirname
index 52bd97032..057da6f4c 100755
--- a/tests/misc/dirname
+++ b/tests/misc/dirname
@@ -21,7 +21,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
use File::stat;
diff --git a/tests/misc/expand b/tests/misc/expand
index 0354112a1..31969bfeb 100755
--- a/tests/misc/expand
+++ b/tests/misc/expand
@@ -21,7 +21,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
#/
require 5.003;
use strict;
diff --git a/tests/misc/expr b/tests/misc/expr
index 9674bc4c5..f7968fdcd 100755
--- a/tests/misc/expr
+++ b/tests/misc/expr
@@ -21,7 +21,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/factor b/tests/misc/factor
index a27034fd0..320ef2f67 100755
--- a/tests/misc/factor
+++ b/tests/misc/factor
@@ -22,7 +22,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/fmt b/tests/misc/fmt
index 5487d2117..b10c6c018 100755
--- a/tests/misc/fmt
+++ b/tests/misc/fmt
@@ -28,7 +28,7 @@ LC_ALL=C
export LC_ALL
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/fold b/tests/misc/fold
index bd4d29ddc..4f9be9a59 100755
--- a/tests/misc/fold
+++ b/tests/misc/fold
@@ -34,7 +34,7 @@ case $ver in
esac
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
#/
require 5.003;
use strict;
diff --git a/tests/misc/head-elide-tail b/tests/misc/head-elide-tail
index a171e4ffb..ad7c7bf40 100755
--- a/tests/misc/head-elide-tail
+++ b/tests/misc/head-elide-tail
@@ -21,7 +21,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
#/
require 5.003;
use strict;
diff --git a/tests/misc/ls-misc b/tests/misc/ls-misc
index ed42fb60b..c54c7a553 100755
--- a/tests/misc/ls-misc
+++ b/tests/misc/ls-misc
@@ -20,7 +20,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/md5sum b/tests/misc/md5sum
index 829f0ac10..b1430994b 100755
--- a/tests/misc/md5sum
+++ b/tests/misc/md5sum
@@ -20,7 +20,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/md5sum-newline b/tests/misc/md5sum-newline
index af555d60c..b2c6116cd 100755
--- a/tests/misc/md5sum-newline
+++ b/tests/misc/md5sum-newline
@@ -34,7 +34,7 @@ if test $filename_may_contain_newline = no; then
fi
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/mktemp b/tests/misc/mktemp
index 6ce9ba11c..826165633 100755
--- a/tests/misc/mktemp
+++ b/tests/misc/mktemp
@@ -22,7 +22,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/od b/tests/misc/od
index 9763e098a..46eb1a89d 100755
--- a/tests/misc/od
+++ b/tests/misc/od
@@ -22,7 +22,7 @@
me=`echo $0|sed 's,.*/,,'`
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/paste b/tests/misc/paste
index 9b50a511d..21f1e47f6 100755
--- a/tests/misc/paste
+++ b/tests/misc/paste
@@ -21,7 +21,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
#/
require 5.003;
use strict;
diff --git a/tests/misc/pr b/tests/misc/pr
index d189ddde5..33fbc0020 100755
--- a/tests/misc/pr
+++ b/tests/misc/pr
@@ -21,7 +21,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
#/
require 5.003;
use strict;
diff --git a/tests/misc/seq b/tests/misc/seq
index 64c33f2a5..05ad9286f 100755
--- a/tests/misc/seq
+++ b/tests/misc/seq
@@ -21,7 +21,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/sha1sum b/tests/misc/sha1sum
index 56a549ed3..ae8137359 100755
--- a/tests/misc/sha1sum
+++ b/tests/misc/sha1sum
@@ -20,7 +20,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/sha1sum-vec b/tests/misc/sha1sum-vec
index db0b3ad99..541aaf216 100755
--- a/tests/misc/sha1sum-vec
+++ b/tests/misc/sha1sum-vec
@@ -20,7 +20,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/sha224sum b/tests/misc/sha224sum
index decac8f9f..e94dec176 100755
--- a/tests/misc/sha224sum
+++ b/tests/misc/sha224sum
@@ -20,7 +20,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/sha256sum b/tests/misc/sha256sum
index bacf6ec59..798e8a325 100755
--- a/tests/misc/sha256sum
+++ b/tests/misc/sha256sum
@@ -20,7 +20,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/sha384sum b/tests/misc/sha384sum
index 180241480..728302e37 100755
--- a/tests/misc/sha384sum
+++ b/tests/misc/sha384sum
@@ -20,7 +20,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/sha512sum b/tests/misc/sha512sum
index 021ad8138..9a62d6743 100755
--- a/tests/misc/sha512sum
+++ b/tests/misc/sha512sum
@@ -20,7 +20,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/sort-merge b/tests/misc/sort-merge
index b4224f71b..8963acb98 100755
--- a/tests/misc/sort-merge
+++ b/tests/misc/sort-merge
@@ -20,7 +20,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/stat-printf b/tests/misc/stat-printf
index 6615df5d1..9852e1fea 100755
--- a/tests/misc/stat-printf
+++ b/tests/misc/stat-printf
@@ -20,7 +20,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/sum b/tests/misc/sum
index f36621406..59ac53560 100755
--- a/tests/misc/sum
+++ b/tests/misc/sum
@@ -20,7 +20,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/test-diag b/tests/misc/test-diag
index 9bdd95057..8ef7f3f5e 100755
--- a/tests/misc/test-diag
+++ b/tests/misc/test-diag
@@ -20,7 +20,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/tsort b/tests/misc/tsort
index dd593abdf..1bd3b90b8 100755
--- a/tests/misc/tsort
+++ b/tests/misc/tsort
@@ -21,7 +21,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
#/
require 5.003;
use strict;
diff --git a/tests/misc/unexpand b/tests/misc/unexpand
index de3ec87ee..c8992ef13 100755
--- a/tests/misc/unexpand
+++ b/tests/misc/unexpand
@@ -20,7 +20,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/misc/wc-files0-from b/tests/misc/wc-files0-from
index d70bb7d56..3698a5679 100755
--- a/tests/misc/wc-files0-from
+++ b/tests/misc/wc-files0-from
@@ -22,7 +22,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
#/
require 5.003;
use strict;
diff --git a/tests/misc/xstrtol b/tests/misc/xstrtol
index cb8503543..c3a34077a 100755
--- a/tests/misc/xstrtol
+++ b/tests/misc/xstrtol
@@ -25,7 +25,7 @@ fi
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/mv/i-1 b/tests/mv/i-1
index 24726fedb..d52366683 100755
--- a/tests/mv/i-1
+++ b/tests/mv/i-1
@@ -20,7 +20,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/rm/empty-name b/tests/rm/empty-name
index 85cf1ed4d..96dab94c0 100755
--- a/tests/rm/empty-name
+++ b/tests/rm/empty-name
@@ -25,7 +25,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;
diff --git a/tests/rm/unreadable b/tests/rm/unreadable
index 836cd611a..fe5665344 100755
--- a/tests/rm/unreadable
+++ b/tests/rm/unreadable
@@ -20,7 +20,7 @@
. $top_srcdir/tests/require-perl
me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
require 5.003;
use strict;