parts/apicheck.pl: Use the passed NEED_foo macros

[perl5.git] / dist / Devel-PPPort / parts / apicheck.pl

diff --git a/dist/Devel-PPPort/parts/apicheck.pl b/dist/Devel-PPPort/parts/apicheck.pl
index 65b8217..268ada4 100644 (file)
--- a/dist/Devel-PPPort/parts/apicheck.pl
+++ b/dist/Devel-PPPort/parts/apicheck.pl
@@ -148,7 +148,6 @@ my $sep = '~';
 # Things to not try to check.  (The component after $sep is empty.)
 my %ignore = map { ("$_$sep" => 1) } keys %{&known_but_hard_to_test_for()};
 
-# XXX The NEED_foo lines should be autogenerated
 print OUT <<HEAD;
 /*
  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
@@ -172,41 +171,7 @@ print OUT <<HEAD;
 
 #else
 
-#define NEED_PL_parser
-#define NEED_PL_signals
-#define NEED_caller_cx
-#define NEED_croak_xs_usage
-#define NEED_die_sv
-#define NEED_eval_pv
-#define NEED_grok_bin
-#define NEED_grok_hex
-#define NEED_grok_number
-#define NEED_grok_numeric_radix
-#define NEED_grok_oct
-#define NEED_load_module
-#define NEED_mess
-#define NEED_mess_nocontext
-#define NEED_mess_sv
-#define NEED_mg_findext
-#define NEED_my_snprintf
-#define NEED_my_sprintf
-#define NEED_my_strlcat
-#define NEED_my_strlcpy
-#define NEED_my_strnlen
-#define NEED_newCONSTSUB
-#define NEED_newSVpvn_share
-#define NEED_pv_display
-#define NEED_pv_escape
-#define NEED_pv_pretty
-#define NEED_sv_catpvf_mg
-#define NEED_sv_catpvf_mg_nocontext
-#define NEED_sv_setpvf_mg
-#define NEED_sv_setpvf_mg_nocontext
-#define NEED_sv_unmagicext
-#define NEED_utf8_to_uvchr_buf
-#define NEED_vload_module
-#define NEED_vmess
-#define NEED_warner
+$ENV{'DPPP_NEED'}    /* All the requisite NEED_foo #defines */
 
 #include "ppport.h"