Craig A. Berry [Sun, 29 May 2005 12:43:09 +0000 (07:43 -0500)]
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <
4299FF2D.90209@mac.com>
p4raw-id: //depot/perl@24618
$ ENDIF
$ ELSE
$ IF (F$LOCATE("DEC",line).NE.F$LENGTH(line)).or.(F$LOCATE("Compaq",line).NE.F$LENGTH(line)) -
- .or.(F$LOCATE("hp",line).NE.F$LENGTH(line))
+ .or.(F$LOCATE("HP",F$EDIT(line,"UPCASE")).NE.F$LENGTH(line))
$ THEN
$ vms_cc_dflt = "/decc"
$ vms_cc_available = vms_cc_available + "cc/decc "