}
sub scan_func {
- my($line) = @_;
-
- print "\tchecking for global routine\n" if $debug > 1;
- $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__'
- || (($1 eq 'Perl_stashpv_hvname_match') && ! $use_threads)) {
- print "\tskipped\n" if $debug > 1;
+ my @lines = split /;/, @_[0];
+
+ for my $line (@lines) {
+ print "\tchecking for global routine\n" if $debug > 1;
+ $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__'
+ || $1 eq 'sizeof' || (($1 eq 'Perl_stashpv_hvname_match') && ! $use_threads)) {
+ print "\tskipped\n" if $debug > 1;
+ }
+ else { $fcns{$1}++ }
}
- else { $fcns{$1}++ }
}
}
else {
open(CPP,"$cpp_file") or die "$0: Can't read preprocessed file $cpp_file: $!\n";
}
-%checkh = map { $_,1 } qw( thread bytecode byterun proto perlio perlvars intrpvar thrdvar );
+%checkh = map { $_,1 } qw( thread bytecode byterun proto perlapi perlio perlvars intrpvar thrdvar );
$ckfunc = 0;
LINE: while (<CPP>) {
while (/^#.*vmsish\.h/i .. /^#.*perl\.h/i) {