diff --git a/perl/t/06_stream_unpack2.t b/perl/t/06_stream_unpack2.t
index 78ca8f7c..25af21d4 100644
--- a/perl/t/06_stream_unpack2.t
+++ b/perl/t/06_stream_unpack2.t
@@ -35,7 +35,7 @@ is_deeply(Data::MessagePack->unpack($packed), $input);
     while( read($stream, $buff, $size) ) {
         note "buff: ", join " ", map { unpack 'H2', $_ } split //, $buff;
 
-        $up->execute($buff);
+        $up->execute($buff, 0);
     }
     ok $up->is_finished, 'is_finished';
     my $data = $up->data;