Commit 9c458f54 authored by Marko Mäkelä's avatar Marko Mäkelä

Work around a test failure

parent e1349c7e
...@@ -141,6 +141,11 @@ for (my $offset= 0x65; $offset; ...@@ -141,6 +141,11 @@ for (my $offset= 0x65; $offset;
for (my $i= 0; $i < $n_fields; $i++) { for (my $i= 0; $i < $n_fields; $i++) {
my $end= unpack("n", substr($page, $offset-8-2*$i, 2)); my $end= unpack("n", substr($page, $offset-8-2*$i, 2));
print ",\n " if $i; print ",\n " if $i;
# Work around a bug in the code!
if (!(~unpack("C",substr($page,$offset-6,1)) & 0x30)) {
substr($page,$offset+$start,6) = pack("x[6]") if $i == 1;
substr($page,$offset+$start,7) = pack("Cx[6]",128) if $i == 2;
}
if ($i > 2 && !(~unpack("C",substr($page,$offset-6,1)) & 0x30)) { if ($i > 2 && !(~unpack("C",substr($page,$offset-6,1)) & 0x30)) {
if ($i == 3) { if ($i == 3) {
print "BLOB="; print "BLOB=";
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment