diff options
| -rw-r--r-- | vms/gen_shrfls.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index 98afe30c17..f412e8128a 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -194,18 +194,18 @@ LINE: while (<CPP>) { while (/^#.*vmsish\.h/i .. /^#.*perl\.h/i) { while (/__VMS_PROTOTYPES__/i .. /__VMS_SEPYTOTORP__/i) { print "vms_proto>> $_" if $debug > 2; - if (/^\s*EXT/) { &scan_var($_); } + if (/^\s*EXT(CONST|\s+)/) { &scan_var($_); } else { &scan_func($_); } last LINE unless defined($_ = <CPP>); } print "vmsish.h>> $_" if $debug > 2; - if (/^\s*EXT/) { &scan_var($_); } + if (/^\s*EXT(CONST|\s+)/) { &scan_var($_); } last LINE unless defined($_ = <CPP>); } while (/^#.*opcode\.h/i .. /^#.*perl\.h/i) { print "opcode.h>> $_" if $debug > 2; if (/^OP \*\s/) { &scan_func($_); } - if (/^\s*EXT/) { &scan_var($_); } + if (/^\s*EXT(CONST|\s+)/) { &scan_var($_); } last LINE unless defined($_ = <CPP>); } # Check for transition to new header file @@ -221,12 +221,12 @@ LINE: while (<CPP>) { } if ($ckfunc) { print "$scanname>> $_" if $debug > 2; - if (/^\s*EXT/) { &scan_var($_); } + if (/^\s*EXT(CONST|\s+)/) { &scan_var($_); } else { &scan_func($_); } } else { print $_ if $debug > 3 && ($debug > 5 || length($_)); - if (/^\s*EXT/) { &scan_var($_); } + if (/^\s*EXT(CONST|\s+)/) { &scan_var($_); } } } close CPP; |