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

Comparing Guard/Guard.xs (file contents):
Revision 1.8 by root, Tue Jan 13 23:30:38 2009 UTC vs.
Revision 1.10 by root, Sun Jul 19 04:43:47 2009 UTC

1#define PERL_NO_GET_CONTEXT 1#define PERL_NO_GET_CONTEXT
2 2
3#include "EXTERN.h" 3#include "EXTERN.h"
4#include "perl.h" 4#include "perl.h"
5#include "XSUB.h" 5#include "XSUB.h"
6
7#ifndef SvSTASH_set
8# define SvSTASH_set(x,a) SvSTASH(x) = (a)
9#endif
10
11#ifndef PERL_MAGIC_ext
12# define PERL_MAGIC_ext '~'
13#endif
6 14
7static HV *guard_stash; 15static HV *guard_stash;
8 16
9static SV * 17static SV *
10guard_get_cv (pTHX_ SV *cb_sv) 18guard_get_cv (pTHX_ SV *cb_sv)
… …
78 86
79MODULE = Guard PACKAGE = Guard 87MODULE = Guard PACKAGE = Guard
80 88
81BOOT: 89BOOT:
82 guard_stash = gv_stashpv ("Guard", 1); 90 guard_stash = gv_stashpv ("Guard", 1);
91 CvNODEBUG_on (get_cv ("Guard::scope_guard", 0)); /* otherwise calling scope can be the debugger */
83 92
84void 93void
85scope_guard (SV *block) 94scope_guard (SV *block)
86 PROTOTYPE: & 95 PROTOTYPE: &
87 CODE: 96 CODE:

Diff Legend

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