Change message to use warning_message instead of perl's warn.