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

use binmode

Browse Source
This commit is contained in:
Mark Andrews
2011-12-22 12:01:43 +00:00
parent 9892bae7b7
commit eacd6ec4e4
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -15,7 +15,7 @@
# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
# PERFORMANCE OF THIS SOFTWARE.
# $Id: tests.sh,v 1.106 2011/12/08 16:07:20 each Exp $
# $Id: tests.sh,v 1.107 2011/12/22 12:01:43 marka Exp $
SYSTEMTESTTOP=..
. $SYSTEMTESTTOP/conf.sh
@@ -59,7 +59,8 @@ checkprivate () {
# check that a zone file is raw format, version 0
israw0 () {
cat $1 | perl -e '$input = <STDIN>;
cat $1 | perl -e 'binmode STDIN;
read(STDIN, $input, 8);
($style, $version) = unpack("NN", $input);
exit 1 if ($style != 2 || $version != 0);'
return $?
@@ -67,7 +68,8 @@ israw0 () {
# check that a zone file is raw format, version 1
israw1 () {
cat $1 | perl -e '$input = <STDIN>;
cat $1 | perl -e 'binmode STDIN;
read(STDIN, $input, 8);
($style, $version) = unpack("NN", $input);
exit 1 if ($style != 2 || $version != 1);'
return $?