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

use $PERL

Browse Source
This commit is contained in:
Mark Andrews
2014-06-24 13:50:14 +10:00
parent a421f4458d
commit 1c95f67232
5 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
bin/tests/system/dnssec/tests.sh
View File

@@ -33,7 +33,7 @@ showprivate () {
echo "-- $@ --"
$DIG $DIGOPTS +nodnssec +short @$2 -t type65534 $1 | cut -f3 -d' ' |
while read record; do
perl -e 'my $rdata = pack("H*", @ARGV[0]);
$PERL -e 'my $rdata = pack("H*", @ARGV[0]);
die "invalid record" unless length($rdata) == 5;
my ($alg, $key, $remove, $complete) = unpack("CnCC", $rdata);
my $action = "signing";
@@ -58,7 +58,7 @@ checkprivate () {
# check that a zone file is raw format, version 0
israw0 () {
cat $1 | perl -e 'binmode STDIN;
cat $1 | $PERL -e 'binmode STDIN;
read(STDIN, $input, 8);
($style, $version) = unpack("NN", $input);
exit 1 if ($style != 2 || $version != 0);'
@@ -67,7 +67,7 @@ israw0 () {
# check that a zone file is raw format, version 1
israw1 () {
cat $1 | perl -e 'binmode STDIN;
cat $1 | $PERL -e 'binmode STDIN;
read(STDIN, $input, 8);
($style, $version) = unpack("NN", $input);
exit 1 if ($style != 2 || $version != 1);'