Map8*       T_MAP8

INPUT
T_MAP8
        $var = find_map8($arg);

OUTPUT
T_MAP8
        /* Make a HASH object, and attach the map to it */
	if ($var) {
	    HV* stash = gv_stashpv(\"Unicode::Map8\", TRUE);
	    sv_upgrade($arg, SVt_RV);
	    SvRV($arg) = (SV*)newHV();
	    SvROK_on($arg);
	    (void)sv_bless($arg, stash);
	    attach_map8($arg, $var);
        } else {
	    SvOK_off($arg);
        }