diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-26 12:54:51 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-26 12:54:51 +0000 |
| commit | 88b3723725fe20e495cd1ae8cc660366808a32f4 (patch) | |
| tree | 433cb6e7d461ee4113d3a0fc4d35f543ff119d88 /Porting | |
| parent | d9a9d4576ee524be82c47fd4efcdec0a4cc327e4 (diff) | |
| download | perl-88b3723725fe20e495cd1ae8cc660366808a32f4.tar.gz | |
Further script tweakage.
p4raw-id: //depot/perl@17356
Diffstat (limited to 'Porting')
| -rw-r--r-- | Porting/testall.atom | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/Porting/testall.atom b/Porting/testall.atom index a677a84445..a709cfdb01 100644 --- a/Porting/testall.atom +++ b/Porting/testall.atom @@ -47,7 +47,11 @@ cd t || exit 1 ln -sf ../perl.pixie . -the_t=`echo base/*.t comp/*.t cmd/*.t run/*.t io/*.t; echo op/*.t pod/*.t x2p/*.t; find ../ext ../lib -name '*.t' -print` +if test $# = 0; then + the_t=`echo base/*.t comp/*.t cmd/*.t run/*.t io/*.t; echo op/*.t uni/*.t pod/*.t x2p/*.t; find ../ext ../lib -name '*.t' -print` +else + the_t=$@ +fi PERL_DESTRUCT_LEVEL=2 export PERL_DESTRUCT_LEVEL @@ -58,13 +62,17 @@ rm -f all.Counts for t in $the_t do + case "$t" in + ext/*|lib/*) t=../$t ;; + t/*) t=`echo $t|sed 's:^t/::'` ;; + esac echo $t|sed 's:\.t$::' sw='' - case "`head -1 $t|egrep -e '^#.* -*T'`" in - *-T*) sw="$sw -T" ;; + case "`head -1 $t|egrep -e '^#.* -.*T'`" in + *-*T*) sw="$sw -T" ;; esac - case "`head -1 $t|egrep -e '^#.* -t'`" in - *-t*) sw="$sw -t" ;; + case "`head -1 $t|egrep -e '^#.* -.*t'`" in + *-*t*) sw="$sw -t" ;; esac ./perl.pixie -I../lib $sw $t > /dev/null if cd .. |