add a header to M0 primitive strings, making most test fail

parrot · Jul 15, 2011 · 069285a · 069285a
1 parent b5ae2ab
commit 069285a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/m0/perl5/m0_interp.pl b/src/m0/perl5/m0_interp.pl
@@ -634,7 +634,8 @@ sub m0b_parse_const_seg {
     my $byte_count  = unpack("L", get_bytes($m0b, $cursor, 4));
     while (scalar(@$consts < $const_count)) {
         my $const_length = unpack("L", get_bytes($m0b, $cursor, 4));
-        my $const        = unpack("a[$const_length]", get_bytes($m0b, $cursor, $const_length));
+        my $header       = pack("LL", $const_length, 0);
+        my $const        = $header . unpack("a[$const_length]", get_bytes($m0b, $cursor, $const_length));
         m0_say "found constant of length $const_length: '$const'";
         push @$consts, $const;
     }