Message-Id: <3.0.5.32.
19980814092016.
00b37dc0@ous.edu>
Subject: [PATCH 5.005_02] (and _5x I expect) VMS config procedure patch
p4raw-link: @1870 on //depot/perl:
6ce52b3371c668f64a2647a024b0472d1c3bdc45
p4raw-id: //depot/maint-5.005/perl@2128
p4raw-integrated: from //depot/perl@2127 'copy in' configure.com
(@1760..)
$ 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)