Change 18375 by jhi@lyta on 2002/12/30 21:28:31
Better version of change #18370; use the new 'E' flag
so that cxinc is exposed (as cpp) only to List::Util
(well, any extension) (well, anyone who does -DPERL_EXT),
no need to export it globally.
Affected files ...
... //depot/maint-5.8/perl/embed.fnc#12 edit
... //depot/maint-5.8/perl/embed.h#14 edit
... //depot/maint-5.8/perl/ext/List/Util/Makefile.PL#2 edit
... //depot/maint-5.8/perl/global.sym#9 edit
Differences ...
==== //depot/maint-5.8/perl/embed.fnc#12 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#11~18370~ Sun Dec 29 18:37:38 2002
+++ perl/embed.fnc Mon Dec 30 13:28:31 2002
@@ -151,7 +151,7 @@
p |char* |get_no_modify
p |U32* |get_opargs
Ap |PPADDR_t*|get_ppaddr
-Ap |I32 |cxinc
+Ep |I32 |cxinc
Afp |void |deb |const char* pat|...
Ap |void |vdeb |const char* pat|va_list* args
Ap |void |debprofdump
==== //depot/maint-5.8/perl/embed.h#14 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#13~18370~ Sun Dec 29 18:37:38 2002
+++ perl/embed.h Mon Dec 30 13:28:31 2002
@@ -151,7 +151,9 @@
#define get_opargs Perl_get_opargs
#endif
#define get_ppaddr Perl_get_ppaddr
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define cxinc Perl_cxinc
+#endif
#define deb Perl_deb
#define vdeb Perl_vdeb
#define debprofdump Perl_debprofdump
@@ -2588,7 +2590,9 @@
#define get_opargs() Perl_get_opargs(aTHX)
#endif
#define get_ppaddr() Perl_get_ppaddr(aTHX)
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define cxinc() Perl_cxinc(aTHX)
+#endif
#define vdeb(a,b) Perl_vdeb(aTHX_ a,b)
#define debprofdump() Perl_debprofdump(aTHX)
#define debop(a) Perl_debop(aTHX_ a)
==== //depot/maint-5.8/perl/ext/List/Util/Makefile.PL#2 (text) ====
Index: perl/ext/List/Util/Makefile.PL
--- perl/ext/List/Util/Makefile.PL#1~17645~ Fri Jul 19 12:29:57 2002
+++ perl/ext/List/Util/Makefile.PL Mon Dec 30 13:28:31 2002
@@ -2,8 +2,9 @@
WriteMakefile(
VERSION_FROM => "lib/List/Util.pm",
- MAN3PODS => {}, # Pods will be built by installman.
+ MAN3PODS => {}, # Pods will be built by installman.
NAME => "List::Util",
+ DEFINE => "-DPERL_EXT",
);
package MY;
==== //depot/maint-5.8/perl/global.sym#9 (text+w) ====
Index: perl/global.sym
--- perl/global.sym#8~18370~ Sun Dec 29 18:37:38 2002
+++ perl/global.sym Mon Dec 30 13:28:31 2002
@@ -87,7 +87,6 @@
Perl_get_op_descs
Perl_get_op_names
Perl_get_ppaddr
-Perl_cxinc
Perl_deb
Perl_vdeb
Perl_debprofdump
End of Patch.
