[perl5.git] / run_bytecode_test

#!/bin/sh
testdir=../perl5.002/t
cwd=`pwd`
if [ -f bperl ]; then
    perl=./bperl
else
    perl="perl -Iblib/arch"
fi
for pl in ${1+"$@"}
do
    echo "*****	$pl *****"
    $perl -MO=Bytecode,-obtest $pl	\
	&& (cd $testdir; $cwd/byteperl $cwd/btest)
done
Commit	Line	Data
79ee8297 MB	1	#!/bin/sh
	2	testdir=../perl5.002/t
	3	cwd=`pwd`
	4	if [ -f bperl ]; then
	5	perl=./bperl
	6	else
	7	perl="perl -Iblib/arch"
	8	fi
	9	for pl in ${1+"$@"}
	10	do
	11	echo "*** $pl ***"
	12	$perl -MO=Bytecode,-obtest $pl \
	13	&& (cd $testdir; $cwd/byteperl $cwd/btest)
	14	done