mir/bind
2
0
Fork 0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-08-31 22:45:39 +00:00
Code Issues Releases Wiki 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

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

@@ -18,7 +18,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
@@ -26,7 +26,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
@@ -43,7 +43,7 @@ isfull () {
}
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);
@@ -52,7 +52,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) =
@@ -66,7 +66,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++) {