Add binmode() for stream unpacking

2026-06-08 16:11:40 +00:00 · 2010-09-16 20:27:25 +09:00
parent afbddbfcda
commit 7c1e0ea95d
1 changed files with 1 additions and 0 deletions
@@ -30,6 +30,7 @@ is_deeply(Data::MessagePack->unpack($packed), $input);

    note "packed size: ", length($packed);
    open my $stream, '<:bytes :scalar', \$packed;
+    binmode $stream;
    my $buff;
    while( read($stream, $buff, $size) ) {
        note "buff: ", join " ", map { unpack 'H2', $_ } split //, $buff;