Craig A. Berry [Thu, 25 Apr 2002 16:00:57 +0000 (11:00 -0500)]
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <
a05111702b8ee1bab9144@[172.16.52.1]>
p4raw-id: //depot/perl@16169
$ IF xxx .EQS. "Encode/JP" THEN goto ext_loop ! sub extension - omit
$ IF xxx .EQS. "Encode/KR" THEN goto ext_loop ! sub extension - omit
$ IF xxx .EQS. "Encode/TW" THEN goto ext_loop ! sub extension - omit
+$ IF xxx .EQS. "B/C" THEN goto ext_loop ! sub extension - omit
$ IF F$EXTRACT(0,8,line) .EQS. "vms/ext/" THEN -
xxx = "VMS/" + F$EXTRACT(8,line_len - 20,line)
$ known_extensions = known_extensions + " ''xxx'"