diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1999-08-23 03:21:46 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 1999-08-23 03:21:46 +0000 |
| commit | 7f00e73766ccaba587601787c298be86b550fae7 (patch) | |
| tree | c3c3c9639800e5c1a7182d3e363d4c0425601fc7 /vms/gen_shrfls.pl | |
| parent | 377875b926c86a98f77adb365611978943fd9ece (diff) | |
| download | perl-7f00e73766ccaba587601787c298be86b550fae7.tar.gz | |
Loosen conditons for recognizing a function name in perl.h to accomodate revisions
p4raw-id: //depot/vmsperl@4023
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 3e70372524..05d0f27c7b 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -188,7 +188,7 @@ sub scan_func { my($line) = @_; print "\tchecking for global routine\n" if $debug > 1; - if ( $line =~ /(\w+)\s+\(/ ) { + if ( $line =~ /(\w+)\s*\(/ ) { print "\troutine name is \\$1\\\n" if $debug > 1; if ($1 eq 'main' || $1 eq 'perl_init_ext') { print "\tskipped\n" if $debug > 1; |