This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[perl5db] Convert variables to our.
[perl5.git]
/
runtests.SH
diff --git
a/runtests.SH
b/runtests.SH
old mode 100644
(file)
new mode 100755
(executable)
index
3b0f9b7
..
24e1ffa
--- a/
runtests.SH
+++ b/
runtests.SH
@@
-1,3
+1,5
@@
+#!/bin/sh
+
case $PERL_CONFIG_SH in
'')
if test ! -f config.sh; then
case $PERL_CONFIG_SH in
'')
if test ! -f config.sh; then
@@
-28,11
+30,6
@@
case \$# in
;;
esac
;;
esac
-if test X"\$PERL" == X; then
- echo "please supply PERL in the environment"
- exit 1
-fi
-
case \$1 in
tty)
tty=Y
case \$1 in
tty)
tty=Y
@@
-53,21
+50,26
@@
case \$1 in
;;
esac
;;
esac
-if test X"\$TESTFILE" =
=
X; then
+if test X"\$TESTFILE" = X; then
TESTFILE=TEST
fi
TESTFILE=TEST
fi
+if test X"\$PERL" = X; then
+ PERL=./perl$_exe
+ export PERL
+fi
+
cd t
cd t
-rm -f \$PERL
-$lns ../\$PERL \$PERL
# The second branch is for testing without a tty or controlling terminal,
# see t/op/stat.t
# The second branch is for testing without a tty or controlling terminal,
# see t/op/stat.t
-if test \$tty =
=
Y; then
+if test \$tty = Y; then
\$PERL \$TESTFILE \$TEST_ARGS \$TEST_FILES </dev/tty
else
PERL_SKIP_TTY_TEST=1 \$PERL \$TESTFILE \$TEST_ARGS \$TEST_FILES
fi
\$PERL \$TESTFILE \$TEST_ARGS \$TEST_FILES </dev/tty
else
PERL_SKIP_TTY_TEST=1 \$PERL \$TESTFILE \$TEST_ARGS \$TEST_FILES
fi
+
+echo "Ran tests" > rantests
!GROK!THIS!
$eunicefix runtests
chmod +x runtests
!GROK!THIS!
$eunicefix runtests
chmod +x runtests