diff options
| author | Craig A. Berry <craigberry@mac.com> | 2005-07-24 10:31:55 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-07-24 20:52:13 +0000 |
| commit | c46ec1f410f930810c1c3e760696951bc26b1248 (patch) | |
| tree | 5cce01bf1f63ef23c441be69022e4c0088646840 /vms | |
| parent | 7dc8f726ffdb362768c2563d86c4aba594ce406e (diff) | |
| download | perl-c46ec1f410f930810c1c3e760696951bc26b1248.tar.gz | |
blead help for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <42E3FABB.1020900@mac.com>
Date: Sun, 24 Jul 2005 15:31:55 -0500
p4raw-id: //depot/perl@25217
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/gen_shrfls.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index 50ae3e3e8a..6fb1bb9d00 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -152,7 +152,8 @@ sub scan_func { $line =~ s/\b(IV|Off_t|Size_t|SSize_t|void)\b//i; 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__') { + if ($1 eq 'main' || $1 eq 'perl_init_ext' || $1 eq '__attribute__format__' + || (($1 eq 'Perl_stashpv_hvname_match') && ! $use_threads)) { print "\tskipped\n" if $debug > 1; } else { $fcns{$1}++ } |