From 6ce52b3371c668f64a2647a024b0472d1c3bdc45 Mon Sep 17 00:00:00 2001
From: Hans Mulder <hansmu@xs4all.nl>
Date: Fri, 14 Aug 1998 02:20:16 -0700
Subject: [PATCH] (and _5x I expect) VMS config procedure patch

	Message-Id: <3.0.5.32.19980814092016.00b37dc0@ous.edu>

p4raw-id: //depot/perl@1870
---
 configure.com | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/configure.com b/configure.com
index 5212219..d51793a 100644
--- a/configure.com
+++ b/configure.com
@@ -974,7 +974,7 @@ $     line = F$EDIT(line,"COMPRESS, TRIM")
 $     patchlevel = F$EXTRACT(18,F$LENGTH(line)-18,line)
 $     got_patch = "true"
 $   ENDIF
-$   IF ((F$LOCATE("SUBVERSION",line).NE.F$LENGTH(line)).AND.(.NOT.got_sub))
+$   IF ((F$LOCATE("#define SUBVERSION",line).NE.F$LENGTH(line)).AND.(.NOT.got_sub))
 $   THEN
 $     line = F$EDIT(line,"COMPRESS, TRIM")
 $     subversion = F$EXTRACT(18,F$LENGTH(line)-18,line)
-- 
2.7.4