From 6c2fd45e9787b7da8a64f6f86ec33cadd21655b8 Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Wed, 29 Sep 2010 22:37:00 -0500 Subject: [PATCH] Don't export symbols for routines that don't exist. The excluded routines are aliases, and while there are a lot of aliases, most of them also exist in mathoms.c so there are actual symbols to link against. These don't and aren't. Before a4e744802906bbf8435494e7f5ab1823213b2448, there were quite a few Perl_pp_xxx and Perl_ck_xxx symbols that were not getting collected here. --- vms/gen_shrfls.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index 7ba40fd..5dbab7e 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -158,7 +158,8 @@ sub scan_func { if ( $line =~ /(\w+)\s*\(/ ) { print "\troutine name is \\$1\\\n" if $debug > 1; if ($1 eq 'main' || $1 eq 'perl_init_ext' || $1 eq '__attribute__format__' - || $1 eq 'sizeof' || (($1 eq 'Perl_stashpv_hvname_match') && ! $use_threads)) { + || $1 eq 'sizeof' || (($1 eq 'Perl_stashpv_hvname_match') && ! $use_threads) + || $1 eq 'Perl_pp_avalues' || $1 eq 'Perl_pp_say') { print "\tskipped\n" if $debug > 1; } else { $fcns{$1}++ } -- 1.8.3.1