diff options
Diffstat (limited to 'vms')
| -rwxr-xr-x[-rw-r--r--] | vms/ext/Stdio/test.pl | 0 | ||||
| -rwxr-xr-x[-rw-r--r--] | vms/ext/filespec.t | 0 | ||||
| -rwxr-xr-x[-rw-r--r--] | vms/fndvers.com | 0 | ||||
| -rw-r--r-- | vms/gen_shrfls.pl | 15 |
4 files changed, 8 insertions, 7 deletions
diff --git a/vms/ext/Stdio/test.pl b/vms/ext/Stdio/test.pl index 0b50d63e3a..0b50d63e3a 100644..100755 --- a/vms/ext/Stdio/test.pl +++ b/vms/ext/Stdio/test.pl diff --git a/vms/ext/filespec.t b/vms/ext/filespec.t index 62b06fe9ed..62b06fe9ed 100644..100755 --- a/vms/ext/filespec.t +++ b/vms/ext/filespec.t diff --git a/vms/fndvers.com b/vms/fndvers.com index 2e49ae6fcb..2e49ae6fcb 100644..100755 --- a/vms/fndvers.com +++ b/vms/fndvers.com diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index cb4f7dd1f1..e451e1826b 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -145,7 +145,8 @@ sub scan_var { my($const) = $line =~ /^EXTCONST/; print "\tchecking for global variable\n" if $debug > 1; - $line =~ s/INIT\(.*\)//; + $line =~ s/\s*EXT/EXT/; + $line =~ s/INIT\s*\(.*\)//; $line =~ s/\[.*//; $line =~ s/=.*//; $line =~ s/\W*;?\s*$//; @@ -156,7 +157,7 @@ sub scan_var { else { $vars{$1}++; } } if ($isvaxc) { - my($type) = $line =~ /^EXT\w*\s+(\w+)/; + my($type) = $line =~ /^\s*EXT\w*\s+(\w+)/; print "\tchecking for use of enum (type is \"$type\")\n" if $debug > 2; if ($type eq 'expectation') { $used_expectation_enum++; @@ -194,18 +195,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 (/^EXT/) { &scan_var($_); } + if (/^\s*EXT/) { &scan_var($_); } else { &scan_func($_); } last LINE unless $_ = <CPP>; } print "vmsish.h>> $_" if $debug > 2; - if (/^EXT/) { &scan_var($_); } + if (/^\s*EXT/) { &scan_var($_); } last LINE unless $_ = <CPP>; } while (/^#.*opcode\.h/i .. /^#.*perl\.h/i) { print "opcode.h>> $_" if $debug > 2; if (/^OP \*\s/) { &scan_func($_); } - if (/^EXT/) { &scan_var($_); } + if (/^\s*EXT/) { &scan_var($_); } if (/^\s+OP_/) { &scan_enum($_); } last LINE unless $_ = <CPP>; } @@ -216,12 +217,12 @@ LINE: while (<CPP>) { } while (/^#.*proto\.h/i .. /^#.*perl\.h/i) { print "proto.h>> $_" if $debug > 2; - if (/^EXT/) { &scan_var($_); } + if (/\s*^EXT/) { &scan_var($_); } else { &scan_func($_); } last LINE unless $_ = <CPP>; } print $_ if $debug > 3 && ($debug > 5 || length($_)); - if (/^EXT/) { &scan_var($_); } + if (/^\s*EXT/) { &scan_var($_); } } close CPP; |