Bisected to https://github.com/rakudo/rakudo/commit/cd7dc4ce934003b9da1e540e638ee6dbe1f44b1b
Committable output https://gist.github.com/Whateverable/ee36fb271f2700f1684e1290a966e709 On 2017-09-14 08:16:43, ash.gabr...@gmail.com wrote: > Hello, > > I've written a module with release 2017-07. > > source here: https://github.com/gabrielash/perl6-zmq > > It fails travis ci test with 'latest' release, but passes with '2017-07'. > > This is the error > > ./t/11.t ..... Too few positionals passed; expected 5 arguments but got 3 > > in method send at > /home/travis/build/gabrielash/perl6-zmq/lib/Net/ZMQ/Message.pm > (Net::ZMQ::Message) line 244 > > in block <unit> at ./t/11.t line 55 > > I am not sure what is wrong and whether it is a bug or my mistake. > > I tried to isolate the problem with the following test, but that test, > in isolation, does work on the latest build. > > So there is something in the module interacting badly with this > nativecall, but only on the latest release. > > class zmq_msg_t is repr('CStruct') { > has int64 $._; > has int64 $._1; > has int64 $._2; > has int64 $._3; > has int64 $._4; > has int64 $._5; > has int64 $._6; > has int64 $._7; > } > > sub zmq_msg_init_data(zmq_msg_t > ,Pointer > ,size_t > ,Pointer = nativecast( Pointer, 0) > ,Pointer = nativecast( Pointer, 0) > ) is native('zmq', v5) > returns int32 is export { * } > > my buf8 $b .= new(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0); > my Pointer $p = nativecast(Pointer, $b); > my zmq_msg_t $m .= new ; > > lives-ok {zmq_msg_init_data($m, $p , 10 )}, "native call ok "; > > Hoping you can help. > > Gabriel Ash > > >
