Performance and stability fix... Reduces the possibility of a heap co…

…rruption until the 200k list on my machine
azawawi · Nov 3, 2017 · ef0d5ba · ef0d5ba
1 parent 2173a0c
commit ef0d5ba
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/lib/MsgPack/Packer.pm6 b/lib/MsgPack/Packer.pm6
@@ -19,15 +19,14 @@ method pack( $data ) returns Blob
 
     self._pack($data);
 
-    my @packed = gather {
-        for 0..($.sbuf.size - 1) {
-            take 0xff +& $.sbuf.data[$_];
-        }
-    }
+    my $packed;
+    my $size   = $.sbuf.size;
+    my $buffer = $.sbuf.data;
+    $packed.append($buffer[$_]) for ^$size;
 
     msgpack_sbuffer_destroy($.sbuf);
 
-    return Blob.new(@packed);
+    return Blob.new($packed);
 }
 
 multi method _pack(List:D $list) {