diff options
| author | Craig A. Berry <craigberry@mac.com> | 2005-05-28 18:18:46 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2005-05-29 04:45:05 +0000 |
| commit | 94a11853edc681701a5fe80474ba2a421f2a4aef (patch) | |
| tree | 2e6d39a23c41cdc6d820f7c9a52d63a1775bab01 /vms/gen_shrfls.pl | |
| parent | 85827533e60ade365bb1a181edd9766766750b4a (diff) | |
| download | perl-94a11853edc681701a5fe80474ba2a421f2a4aef.tar.gz | |
VMS build update for blead
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <429942A6.10601@mac.com>
p4raw-id: //depot/perl@24613
Diffstat (limited to 'vms/gen_shrfls.pl')
| -rw-r--r-- | vms/gen_shrfls.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index f8bf6b190b..50ae3e3e8a 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -152,7 +152,7 @@ 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') { + if ($1 eq 'main' || $1 eq 'perl_init_ext' || $1 eq '__attribute__format__') { print "\tskipped\n" if $debug > 1; } else { $fcns{$1}++ } |