This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
perldelta for vstrings and set-magic
[perl5.git]
/
proto.h
diff --git
a/proto.h
b/proto.h
index
242e35b
..
63d1c9c
100644
(file)
--- a/
proto.h
+++ b/
proto.h
@@
-5792,9
+5792,9
@@
STATIC int S_magic_methpack(pTHX_ SV *sv, const MAGIC *mg, SV *meth)
assert(sv); assert(mg); assert(meth)
STATIC void S_restore_magic(pTHX_ const void *p);
assert(sv); assert(mg); assert(meth)
STATIC void S_restore_magic(pTHX_ const void *p);
-STATIC void S_save_magic
(pTHX_ I32 mgs_ix, SV *sv
)
+STATIC void S_save_magic
_flags(pTHX_ I32 mgs_ix, SV *sv, U32 flags
)
__attribute__nonnull__(pTHX_2);
__attribute__nonnull__(pTHX_2);
-#define PERL_ARGS_ASSERT_SAVE_MAGIC \
+#define PERL_ARGS_ASSERT_SAVE_MAGIC
_FLAGS
\
assert(sv)
STATIC void S_unwind_handler_stack(pTHX_ const void *p);
assert(sv)
STATIC void S_unwind_handler_stack(pTHX_ const void *p);