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.

diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl
index 7ba40fd..5dbab7e 100644 (file)
--- 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}++ }