X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=vms%2Fgen_shrfls.pl;h=3cdd3ef84ae80a6767322d66cc06405c2c6e7c04;hb=96a925ab0077cdd24bd7d328f20be3d5373d4885;hp=04161d491ec541360531865ef398498f5b730a09;hpb=32af7c23a1c4abd006dd0f19ca383c1fcaddfdd9;p=p5sagit%2Fp5-mst-13.2.git

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