diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-11-13 08:33:25 -0600 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-11-13 19:32:33 +0000 |
| commit | 72d9590d7f2276007a1ce30193936901e22250e1 (patch) | |
| tree | 3cf4cee586b291c68b29ab478b4401b840a568e1 /vms | |
| parent | 4a42e14c85d30633123e6628b0413b5964a0b929 (diff) | |
| download | perl-72d9590d7f2276007a1ce30193936901e22250e1.tar.gz | |
vms/gen_shrfls.pl tweak
Message-Id: <5.1.0.14.2.20011113142319.01c3ad50@exchi01>
p4raw-id: //depot/perl@12980
Diffstat (limited to 'vms')
| -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 { |