if ($dup_wtr) {
    if (fh_is_fd($dad_wtr)) {
        xclose $dad_wtr;
    } else {
        xfdclose xfileno($dad_wtr);
    }
}