vms/gen_shrfls.pl tweak

Message-Id: <5.1.0.14.2.20011113142319.01c3ad50@exchi01>

p4raw-id: //depot/perl@12980

diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl
index 04161d4..3cdd3ef 100644 (file)
--- 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 {