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 cc152ad50f
commit 0e41705fa7
5 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -20,7 +20,7 @@ SYSTEMTESTTOP=..
. $SYSTEMTESTTOP/conf.sh
ismap () {
perl -e 'binmode STDIN;
$PERL -e 'binmode STDIN;
read(STDIN, $input, 8);
($style, $version) = unpack("NN", $input);
exit 1 if ($style != 3 || $version > 1);' < $1
@@ -28,7 +28,7 @@ ismap () {
}
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
@@ -36,7 +36,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);
@@ -45,7 +45,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) =
@@ -59,7 +59,7 @@ sourceserial () {
}
stomp () {
perl -e 'open(my $file, "+<", $ARGV[0]);
$PERL -e 'open(my $file, "+<", $ARGV[0]);
binmode $file;
seek($file, $ARGV[1], 0);
for (my $i = 0; $i < $ARGV[2]; $i++) {