perl: Fix get/set_response_expected functions with BOOL type