This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Let Lint private_names catch out-of-package _foo methods.
[perl5.git] / run_cc_test
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=CC,-obtest.tc $pl                 \
13         && mv btest.tc btest.c                  \
14         && $perl cc_harness -O2 -o btest btest.c\
15         && echo Running...                      \
16         && (cd $testdir; $cwd/btest)
17 done