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

use $PERL

Browse Source 
(cherry picked from commit 1c95f67232)
This commit is contained in:
Mark Andrews
2014-06-24 13:50:14 +10:00
parent 27897e9d38
commit da5e13af84
5 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -20,7 +20,7 @@ SYSTEMTESTTOP=..
. $SYSTEMTESTTOP/conf.sh
israw () {
perl -e 'binmode STDIN;
$PERL -e 'binmode STDIN;
read(STDIN, $input, 8);
($style, $version) = unpack("NN", $input);
exit 1 if ($style != 2 || $version > 1);' < $1
@@ -28,7 +28,7 @@ israw () {
}
rawversion () {
perl -e 'binmode STDIN;
$PERL -e 'binmode STDIN;
read(STDIN, $input, 8);
if (length($input) < 8) { print "not raw\n"; exit 0; };
($style, $version) = unpack("NN", $input);
@@ -36,7 +36,7 @@ rawversion () {
}
sourceserial () {
perl -e 'binmode STDIN;
$PERL -e 'binmode STDIN;
read(STDIN, $input, 20);
if (length($input) < 20) { print "UNSET\n"; exit; };
($format, $version, $dumptime, $flags, $sourceserial) =