Don't export symbols for routines that don't exist.

[perl5.git] / vms / gen_shrfls.pl

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}++ }