Enlightenment CVS committal
Author : codewarrior
Project : e17
Module : proto
Dir : e17/proto/etk-perl
Modified Files:
Etk.xs
Log Message:
fix segv when no event struct is present
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/Etk.xs,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -3 -r1.15 -r1.16
--- Etk.xs 13 Jun 2006 00:13:44 -0000 1.15
+++ Etk.xs 13 Jun 2006 10:37:54 -0000 1.16
@@ -96,9 +96,7 @@
Etk_Event_Mouse_Up_Down *event = value;
HV *event_hv;
SV *event_rv;
- cbd = data;
-
-
+ cbd = data;
event_hv = (HV*)sv_2mortal((SV*)newHV());
if(!strcmp(cbd->signal_name, "mouse_up"))
@@ -113,6 +111,8 @@
hv_store(event_hv, "widget_y", strlen("widget_y"), event_rv, 0);
event_rv = newRV(event_hv);
}
+ else
+ event_rv = newRV(event_hv);
PUSHMARK(SP) ;
XPUSHs(sv_2mortal(event_rv));
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
