[project @ 1997-11-24 21:21:13 by sof]

[ghc-hetmet.git] / ghc / lib / cbits / openFile.lc

diff --git a/ghc/lib/cbits/openFile.lc b/ghc/lib/cbits/openFile.lc
index 73ebe24..4b92aca 100644 (file)
--- a/ghc/lib/cbits/openFile.lc
+++ b/ghc/lib/cbits/openFile.lc
@@ -67,7 +67,15 @@ StgByteArray how;
                ghc_errtype = ERR_NOSUCHTHING;
                ghc_errstr = "file does not exist";
                return NULL;
-           }
+           } else {
+               /* If it is a dangling symlink, break off now, too. */
+               struct stat st;
+               if ( lstat(file,&st) == 0) {
+                  ghc_errtype = ERR_NOSUCHTHING;
+                  ghc_errstr = "dangling symlink";
+                  return NULL;
+               }
+            }
            /* Now try to create it */
            while ((fd = open(file, oflags | O_CREAT | O_EXCL, 0666)) < 0) {
                if (errno == EEXIST) {