From: Charles Bailey <bailey@newman.upenn.edu>
Date: Mon, 23 Aug 1999 03:21:46 +0000 (+0000)
Subject: Loosen conditons for recognizing a function name in perl.h to accomodate revisions
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7f00e73766ccaba587601787c298be86b550fae7;p=p5sagit%2Fp5-mst-13.2.git

Loosen conditons for recognizing a function name in perl.h to accomodate revisions

p4raw-id: //depot/vmsperl@4023
---

diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl
index 3e70372..05d0f27 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;