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

Comparing Guard/Guard.xs (file contents):
Revision 1.5 by root, Sat Dec 13 21:47:07 2008 UTC vs.
Revision 1.6 by root, Sun Dec 14 19:55:59 2008 UTC

… …
78 78
79BOOT: 79BOOT:
80 guard_stash = gv_stashpv ("Guard", 1); 80 guard_stash = gv_stashpv ("Guard", 1);
81 81
82void 82void
83CLONE (...)
84 PROTOTYPE: @
85 CODE:
86 guard_stash = gv_stashpv ("Guard", 1);
87
88void
89scope_guard (SV *block) 83scope_guard (SV *block)
90 PROTOTYPE: & 84 PROTOTYPE: &
91 CODE: 85 CODE:
92 LEAVE; /* unfortunately, perl sandwiches XS calls into ENTER/LEAVE */ 86 LEAVE; /* unfortunately, perl sandwiches XS calls into ENTER/LEAVE */
93 SAVEDESTRUCTOR_X (scope_guard_cb, (void *)SvREFCNT_inc (guard_get_cv (aTHX_ block))); 87 SAVEDESTRUCTOR_X (scope_guard_cb, (void *)SvREFCNT_inc (guard_get_cv (aTHX_ block)));

Diff Legend

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