Use PERL env variable for execution of perl.

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

View File

@@ -58,20 +58,20 @@ $DIG +tcp +noadd +nosea +nostat +noquest +nocomm +nocmd +noauth\
status=`expr $status + $?`
grep ";" dig.out.ns3.2
perl ../digcomp.pl dig.out.ns2.1 dig.out.ns4.2
$PERL ../digcomp.pl dig.out.ns2.1 dig.out.ns4.2
status=`expr $status + $?`
perl ../digcomp.pl dig.out.ns3.1 dig.out.ns2.2
$PERL ../digcomp.pl dig.out.ns3.1 dig.out.ns2.2
status=`expr $status + $?`
perl ../digcomp.pl dig.out.ns3.1 dig.out.ns3.2
$PERL ../digcomp.pl dig.out.ns3.1 dig.out.ns3.2
status=`expr $status + $?`
echo "Differences should be found in the following lines:"
perl ../digcomp.pl dig.out.ns2.1 dig.out.ns3.2
$PERL ../digcomp.pl dig.out.ns2.1 dig.out.ns3.2
if [ $? = 0 ]; then
echo "No differences found. Something's wrong."
$status=`expr $status + 1`
status=`expr $status + 1`
fi
if [ $status != 0 ]; then