Craig A. Berry [Wed, 25 Sep 2002 17:14:33 +0000 (12:14 -0500)]
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <
3D923549.6050809@mac.com>
p4raw-id: //depot/perl@17936
$ THEN
$ dflt = dflt - "Socket" ! optional on VMS
$ ENDIF
-$ IF .NOT. use_ithreads THEN dflt = dflt - "threads/shared"
-$ IF .NOT. use_ithreads THEN dflt = dflt - "threads"
$ IF .NOT. use_threads THEN dflt = dflt - "Thread"
$ dflt = F$EDIT(dflt,"TRIM,COMPRESS")
$!