diff options
| -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 04161d491e..3cdd3ef84a 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -213,7 +213,7 @@ LINE: while (<CPP>) { } if ($ckfunc) { print "$scanname>> $_" if $debug > 2; - if (/\s*^EXT/) { &scan_var($_); } + if (/^\s*EXT/) { &scan_var($_); } else { &scan_func($_); } } else { |