ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Guard/Guard.xs
(Generate patch)

Comparing Guard/Guard.xs (file contents):
Revision 1.6 by root, Sun Dec 14 19:55:59 2008 UTC vs.
Revision 1.8 by root, Tue Jan 13 23:30:38 2009 UTC

… …
31 PUSHSTACKi (PERLSI_DESTROY); 31 PUSHSTACKi (PERLSI_DESTROY);
32 32
33 PUSHMARK (SP); 33 PUSHMARK (SP);
34 PUTBACK; 34 PUTBACK;
35 call_sv (cb, G_VOID | G_DISCARD | G_EVAL); 35 call_sv (cb, G_VOID | G_DISCARD | G_EVAL);
36 SPAGAIN;
37 36
38 if (SvTRUE (ERRSV)) 37 if (SvTRUE (ERRSV))
39 { 38 {
39 SPAGAIN;
40
40 PUSHMARK (SP); 41 PUSHMARK (SP);
41 PUTBACK; 42 PUTBACK;
42 call_sv (get_sv ("Guard::DIED", 1), G_VOID | G_DISCARD | G_EVAL | G_KEEPERR); 43 call_sv (get_sv ("Guard::DIED", 1), G_VOID | G_DISCARD | G_EVAL | G_KEEPERR);
43 SPAGAIN;
44 44
45 sv_setpvn (ERRSV, "", 0); 45 sv_setpvn (ERRSV, "", 0);
46 } 46 }
47 47
48 if (saveerr) 48 if (saveerr)
… …
65 65
66static int 66static int
67guard_free (pTHX_ SV *cv, MAGIC *mg) 67guard_free (pTHX_ SV *cv, MAGIC *mg)
68{ 68{
69 exec_guard_cb (aTHX_ mg->mg_obj); 69 exec_guard_cb (aTHX_ mg->mg_obj);
70
71 return 0;
70} 72}
71 73
72static MGVTBL guard_vtbl = { 74static MGVTBL guard_vtbl = {
73 0, 0, 0, 0, 75 0, 0, 0, 0,
74 guard_free 76 guard_free

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines