diff options
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; |