… | |
… | |
53 | PL_diehook = savedie; |
53 | PL_diehook = savedie; |
54 | SvREFCNT_dec (oldhook); |
54 | SvREFCNT_dec (oldhook); |
55 | } |
55 | } |
56 | |
56 | |
57 | POPSTACK; |
57 | POPSTACK; |
58 | PUTBACK; |
|
|
59 | } |
58 | } |
60 | |
59 | |
61 | static void |
60 | static void |
62 | scope_guard_cb (pTHX_ void *cv) |
61 | scope_guard_cb (pTHX_ void *cv) |
63 | { |
62 | { |
… | |
… | |
76 | }; |
75 | }; |
77 | |
76 | |
78 | MODULE = Guard PACKAGE = Guard |
77 | MODULE = Guard PACKAGE = Guard |
79 | |
78 | |
80 | BOOT: |
79 | BOOT: |
81 | guard_stash = gv_stashpv ("Guard", 1); |
|
|
82 | |
|
|
83 | void |
|
|
84 | CLONE (...) |
|
|
85 | PROTOTYPE: @ |
|
|
86 | CODE: |
|
|
87 | guard_stash = gv_stashpv ("Guard", 1); |
80 | guard_stash = gv_stashpv ("Guard", 1); |
88 | |
81 | |
89 | void |
82 | void |
90 | scope_guard (SV *block) |
83 | scope_guard (SV *block) |
91 | PROTOTYPE: & |
84 | PROTOTYPE: & |