# this works as a bash include
#
# test MainLib::FileTmp
#
TEMPPATHSV="$TEMPPATH"
export TEMPPATH=$dirtest/test_FTmp1_tmp
rm -fR $TEMPPATH 2>/dev/null
mkdir $TEMPPATH

out=`perl "$dirtest"/${setstamp}_callsub.pl "$dircode" 2>&1 | tail -1`
outnum=`perl -e '$ARGV[0]=~m/^WARNING: (\d+) tmp/ and print $1,qq(\n);' "$out"`
outglob=`perl -e '$ARGV[0]=~m/as (\S+.tmp) , using/ and print $1,qq(\n);' "$out"`
rm -f $outglob
echo $outnum
ls $TEMPPATH

rm -fR $TEMPPATH
export TEMPPATH="$TEMPPATHSV"
  # need to restore the environment since this is called as a script include
