生成したフレームをpacket_outのdata:として指定した際にエラーが出力される about trema-edge HOT 5 OPEN

  if ( datapath_id == rb_iv_get( r_opt_message, "@datapath_id" ) ) {
    buffer_id = NUM2UINT( rb_iv_get( r_opt_message, "@buffer_id" ) );
    VALUE match = rb_iv_get( r_opt_message, "@match" );
    in_port = NUM2UINT( rb_iv_get( match, "@in_port" ) );
  }
  VALUE r_data = rb_iv_get( r_opt_message, "@data" );
  data = r_array_to_buffer( r_data );
}

VALUE r_opt_action = HASH_REF( options, actions );
if ( !NIL_P( r_opt_action ) ) {
  actions = pack_basic_action( r_opt_action );
}

VALUE r_opt_message = HASH_REF( options, packet_in );
VALUE r_opt_data = HASH_REF( options, data ); //add
if ( !NIL_P( r_opt_message ) ) {

  if ( datapath_id == rb_iv_get( r_opt_message, "@datapath_id" ) ) {
    buffer_id = NUM2UINT( rb_iv_get( r_opt_message, "@buffer_id" ) );
    VALUE match = rb_iv_get( r_opt_message, "@match" );
    in_port = NUM2UINT( rb_iv_get( match, "@in_port" ) );
  }
  VALUE r_data = rb_iv_get( r_opt_message, "@data" );
  data = r_array_to_buffer( r_data );
}
// add following els if
else if( !NIL_P(r_opt_data) ){
    data = r_array_to_buffer( r_opt_data );
}
buffer *packet_out;
if ( buffer_id == OFP_NO_BUFFER &&
   ( !NIL_P( r_opt_message )  || !NIL_P(r_opt_data) )) {  // add more 1 condition
  buffer *frame = duplicate_buffer( data );
  fill_ether_padding( frame );
  packet_out = create_packet_out(
    get_transaction_id(),
    buffer_id,
    in_port,
    actions,
    frame
  );
  free_buffer( data );
  free_buffer( frame );
} 
else {
  packet_out = create_packet_out(
    get_transaction_id(),
    buffer_id, 
    in_port,
    actions,
    NULL
  );
}
send_openflow_message( NUM2ULL( datapath_id ), packet_out );

free_buffer( packet_out );
delete_actions( actions );