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
Fix Pod errors spotted by podcheck.t
[perl5.git]
/
op.h
diff --git
a/op.h
b/op.h
index
a90be0a
..
9608564
100644
(file)
--- a/
op.h
+++ b/
op.h
@@
-244,6
+244,7
@@
Deprecated. Use C<GIMME_V> instead.
/* Private for OP_DELETE */
#define OPpSLICE 64 /* Operating on a list of keys */
/* Private for OP_DELETE */
#define OPpSLICE 64 /* Operating on a list of keys */
+/* Also OPpLVAL_INTRO (128) */
/* Private for OP_EXISTS */
#define OPpEXISTS_SUB 64 /* Checking for &sub, not {} or []. */
/* Private for OP_EXISTS */
#define OPpEXISTS_SUB 64 /* Checking for &sub, not {} or []. */
@@
-600,9
+601,9
@@
struct loop {
#endif
/* flags used by Perl_load_module() */
#endif
/* flags used by Perl_load_module() */
-#define PERL_LOADMOD_DENY 0x1
-#define PERL_LOADMOD_NOIMPORT 0x2
-#define PERL_LOADMOD_IMPORT_OPS 0x4
+#define PERL_LOADMOD_DENY 0x1
/* no Module */
+#define PERL_LOADMOD_NOIMPORT 0x2
/* use Module () */
+#define PERL_LOADMOD_IMPORT_OPS 0x4
/* use Module (...) */
#if defined(PERL_IN_PERLY_C) || defined(PERL_IN_OP_C)
#define ref(o, type) doref(o, type, TRUE)
#if defined(PERL_IN_PERLY_C) || defined(PERL_IN_OP_C)
#define ref(o, type) doref(o, type, TRUE)
@@
-614,6
+615,10
@@
struct loop {
cv_ckproto_len((cv), (gv), (p), (p) ? strlen(p) : 0)
#endif
cv_ckproto_len((cv), (gv), (p), (p) ? strlen(p) : 0)
#endif
+#ifdef PERL_CORE
+# define my(o) my_attrs((o), NULL)
+#endif
+
#ifdef USE_REENTRANT_API
#include "reentr.h"
#endif
#ifdef USE_REENTRANT_API
#include "reentr.h"
#endif
@@
-641,7
+646,7
@@
struct loop {
struct madprop {
MADPROP* mad_next;
struct madprop {
MADPROP* mad_next;
-
const
void *mad_val;
+ void *mad_val;
U32 mad_vlen;
/* short mad_count; */
char mad_key;
U32 mad_vlen;
/* short mad_count; */
char mad_key;