From: Craig A. Berry <craigberry@mac.com>
Date: Tue, 13 Nov 2001 14:33:25 +0000 (-0600)
Subject: vms/gen_shrfls.pl tweak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=72d9590d7f2276007a1ce30193936901e22250e1;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 {