PERL-740 Fix depth coverage test for big-endian

mongodb-labs · Nov 28, 2018 · b3403b8 · b3403b8
1 parent 08ba57c
commit b3403b8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/t/common/errors.t b/t/common/errors.t
@@ -82,8 +82,8 @@ subtest nesting => sub {
 
     # synthesize 10 and 101 levels of BSON
     my $bson_100 = encode( create_nest(100) );
-    my $bson_101 = pack("lCZ*",0,0x03,"a") . $bson_100 . "\x00";
-    substr($bson_101,0,4,pack("l",length $bson_101));
+    my $bson_101 = pack("l<CZ*",0,0x03,"a") . $bson_100 . "\x00";
+    substr($bson_101,0,4,pack("l<",length $bson_101));
 
     eval { decode($bson_100) };
     $err = $@;