From: Craig A. Berry Date: Tue, 8 Sep 2009 01:44:41 +0000 (-0500) Subject: No longer need to look for extensions under vms/ext. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4e7371bde887023f24c379d2444a74291b24b544;p=p5sagit%2Fp5-mst-13.2.git No longer need to look for extensions under vms/ext. --- diff --git a/configure.com b/configure.com index 67d0df0..781eb91 100644 --- a/configure.com +++ b/configure.com @@ -2725,8 +2725,7 @@ $ xxx = "" $ OPEN/READ CONFIG 'manifestfound' $ext_loop: $ READ/END_OF_FILE=end_ext/ERROR=end_ext CONFIG line -$ IF F$EXTRACT(0,4,line) .NES. "ext/" .AND. - - F$EXTRACT(0,8,line) .NES. "vms/ext/" THEN goto ext_loop +$ IF F$EXTRACT(0,4,line) .NES. "ext/" THEN goto ext_loop $ line = F$EDIT(line,"COMPRESS") $ line = F$ELEMENT(0," ",line) $ IF F$EXTRACT(0,4,line) .EQS. "ext/" @@ -2734,12 +2733,6 @@ $ THEN $ xxx = F$ELEMENT(1,"/",line) $ IF F$SEARCH("[-.ext]''xxx'.DIR;1") .EQS. "" THEN GOTO ext_loop $ ENDIF -$ IF F$EXTRACT(0,8,line) .EQS. "vms/ext/" -$ THEN -$ xxx = F$ELEMENT(2,"/",line) -$ IF F$SEARCH("[-.vms.ext]''xxx'.DIR;1") .EQS. "" THEN GOTO ext_loop -$ xxx = "VMS/" + xxx -$ ENDIF $ IF xxx .EQS. "DynaLoader" THEN goto ext_loop ! omit $! $! (extspec = xxx) =~ tr!-!/!