ComputerSurge/bind9
3
0
Fork 0
Code Pull Requests 1 Activity

Use PERL env variable for execution of perl.

Browse Source
This commit is contained in:
Michael Sawyer
2000-06-13 19:41:59 +00:00
parent e03329a387
commit 5cca51c7c1
8 changed files with 30 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
bin/tests/system/xferquota/tests.sh
View File

@@ -37,6 +37,7 @@ while [ $count != 300 ]; do
seconds=`expr $ticks \* 1`
if [ $ticks = 60 ]; then
echo "Took too long to load zones"
echo "R:FAIL"
exit 1
fi
count=`cat ns2/zone*.bk | grep xyzzy | wc -l`
@@ -54,7 +55,7 @@ $DIG +tcp +noadd +nosea +nostat +noquest +nocomm +nocmd \
status=`expr $status + $?`
grep ";" dig.out.ns2
perl ../digcomp.pl dig.out.ns1 dig.out.ns2
$PERL ../digcomp.pl dig.out.ns1 dig.out.ns2
status=`expr $status + $?`
sleep 5
@@ -69,7 +70,7 @@ $DIG +tcp +noadd +nosea +nostat +noquest +nocomm +nocmd \
status=`expr $status + $?`
grep ";" dig.out.ns2
perl ../digcomp.pl dig.out.ns1 dig.out.ns2
$PERL ../digcomp.pl dig.out.ns1 dig.out.ns2
status=`expr $status + $?`
if [ $status != 0 ]; then