Craig A. Berry [Sun, 4 Jan 2004 22:53:40 +0000 (16:53 -0600)]
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <
3FF8EDD4.3080308@mac.com>
p4raw-id: //depot/perl@22057
$ WS " printf(""%d\n"",iss);"
$ WS "}"
$ CS
-$ IF (F$EXTRACT(0,7,archname) .EQS. "VMS_AXP")
-$ THEN
-$ GOSUB compile
-$ ELSE
-$ ! Causes SS$_BADSTACK on OpenVMS I64 v8.1 (but hey, it was undocumented)
-$ tmp = "0"
-$ ENDIF
+$ ON ERROR THEN CONTINUE
+$ GOSUB compile
$ IF tmp .EQS. "1"
$ THEN
$ echo4 "Yep, we can."