--- EV/typemap 2007/10/29 07:56:03 1.5 +++ EV/typemap 2007/10/29 09:00:43 1.6 @@ -2,8 +2,8 @@ Event T_EVENT Signal T_SIGNAL -/* for 5.6 compatibility */ -const char * T_PV +char * T_PVbyte +const char * T_PVbyte INPUT @@ -23,6 +23,9 @@ if (($var = sv_signum ($arg)) <= 0) croak (\"'%s' is not a valid signal number or name\", SvPV_nolen ($arg)); +T_PVbyte + $var = ($type)SvPVbyte_nolen ($arg) + OUTPUT T_BASE @@ -31,3 +34,6 @@ T_EVENT $arg = e_self ($var); +T_PVbyte + sv_setpv ((SV *)$arg, $var); +