BUFOBJ T_BUFOBJ INPUT T_BUFOBJ $var = $arg; if (SvRV ($arg) != cur_bufobj) switch_bufobj ($arg);