$ WS " printf(""%d\n"",iss);"
$ WS "}"
$ CS
-$ IF (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."
$ echo4 "The perl.cld file is now being written..."
$ OPEN/WRITE CONFIG 'file_2_find'
$ ext = ".exe"
-$ IF (sharedperl .AND. archname .EQS. "VMS_AXP") THEN ext := .AXE
-$ IF (sharedperl .AND. archname .EQS. "VMS_IA64") THEN ext := .IXE
+$ IF (sharedperl .AND. F$EXTRACT(0,7,archname) .EQS. "VMS_AXP") THEN ext := .AXE
+$ IF (sharedperl .AND. F$EXTRACT(0,8,archname) .EQS. "VMS_IA64") THEN ext := .IXE
$ IF (use_vmsdebug_perl)
$ THEN
$ WRITE CONFIG "define verb dbgperl"