# this works as a bash include
#
#COMM SeqLab::SeqStreamIn, SeqLab::SeqFormat, SeqHandle.pl, SeqLab::SeqStreamOut
#COMM - esp. SeqHandle.pl / SeqLab::SeqStreamOut with a pipe command argument
#COMM   to options -OutSeq / -file

# give include precedence to code directory, perl -I would not work!
PERLPATH_SV="$PERLPATH"
export PERLPATH=$dircode

fin=$dirtest/test_seq_ntmult.fa
ftmp1=$dirtest/${setstamp}_tmp1
ftmp2=$dirtest/${setstamp}_tmp2
grep '^>' $fin  > $ftmp1
perl $dircode/SeqHandle.pl -cat $fin -OutSeq='| grep "^>"'  \
  > $ftmp2
diff $ftmp1 $ftmp2
rm -f $ftmp1 $ftmp2

export PERLPATH="$PERLPATH_SV"
