X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl_exp.SH;h=51c3ab258470f0a5c05f19e7a299beaa850af520;hb=8f580fb8c3adcd8061f0e72f718bbf4ff930d697;hp=07d41408d46df98ffaf42e489b0920619de20b39;hpb=017f25f12cde7f2349c4feace654ff43ec0681aa;p=p5sagit%2Fp5-mst-13.2.git diff --git a/perl_exp.SH b/perl_exp.SH index 07d4140..51c3ab2 100644 --- a/perl_exp.SH +++ b/perl_exp.SH @@ -7,7 +7,7 @@ # Create the export list for perl. # Needed by AIX to do dynamic linking. # -# This simple program relies on 'global.sym' and few other *.sym files +# This simple program relies on global.sym and few other *.sym files # and the *var*.h files being up to date with all of the global # symbols that a dynamic link library might want to access. # @@ -52,9 +52,10 @@ echo "#!" > perl.exp # No interp.sym since 5.005_03. # perlio.sym will added later if needed. -syms="global.sym thread.sym" +syms="global.sym pp.sym" sed -n '/^[A-Za-z]/ s/^/Perl_/p' $syms >> perl.exp +sed -n '/^[A-Za-z]/ s/^/PL_/p' globvar.sym >> perl.exp sed -n 's/^PERLVAR.*(G\([^[,]*\).*/PL_\1/p' perlvars.h >> perl.exp sed -n 's/^PERLVAR.*(I\([^[,]*\).*/PL_\1/p' intrpvar.h >> perl.exp @@ -99,9 +100,6 @@ perl_call_sv perl_eval_pv perl_eval_sv perl_require_pv -cast_i32 -cast_iv -cast_uv END case "$ccflags" in