From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 30 Aug 2000 20:55:20 +0000 (+0000)
Subject: A better fix for the Socket building problem from Craig Berry.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=61e6f928c8400b55ed250dc96a4024358ab069ff;p=p5sagit%2Fp5-mst-13.2.git

A better fix for the Socket building problem from Craig Berry.

p4raw-id: //depot/perl@6926
---

diff --git a/vms/vms.c b/vms/vms.c
index dfa4387..dc14c5f 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -5679,12 +5679,6 @@ cando_by_name(I32 bit, Uid_t effective, char *fname)
   if (retsts == SS$_ACCONFLICT) {
     return TRUE;
   }
-
-#if defined(__ALPHA) && defined(__VMS_VER) && __VMS_VER == 70100022 &&  defined(__DECC_VER) && __DECC_VER == 6009001
-  /* XXX Hideous kluge to accomodate error in specific version of RTL;
-     we hope it'll be buried soon */
-  if (retsts == 114762) return TRUE;
-#endif
   _ckvmssts(retsts);
 
   return FALSE;  /* Should never get here */