This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
future-proof signal check
authorCraig A. Berry <craigberry@mac.com>
Sun, 4 Jan 2004 22:53:40 +0000 (16:53 -0600)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 5 Jan 2004 06:17:07 +0000 (06:17 +0000)
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3FF8EDD4.3080308@mac.com>

p4raw-id: //depot/perl@22057

configure.com

index e32210f..7cf329d 100644 (file)
@@ -5109,13 +5109,8 @@ $   WS "    iss =  ((iss&1)==1 && code == 0x1234);"
 $   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."