MW does not always set errno on failing fopen()

diff --git a/Objects/fileobject.c b/Objects/fileobject.c
index df27caf41fba4a7944113a2d5310ecd4bad1525d..d8335275801425244845ca1499b83cb321a78370 100644 (file)
--- a/Objects/fileobject.c
+++ b/Objects/fileobject.c
@@ -32,6 +32,10 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 #ifdef THINK_C
 #define HAVE_FOPENRF
 #endif
+#ifdef __MWERKS__
+/* Mwerks fopen() doesn't always set errno */
+#define NO_FOPEN_ERRNO
+#endif
 
 #define BUF(v) GETSTRINGVALUE((stringobject *)v)
 
@@ -111,6 +115,13 @@ newfileobject(name, mode)
                END_SAVE
        }
        if (f->f_fp == NULL) {
+#ifdef NO_FOPEN_ERRNO
+               if ( errno == 0 ) {
+                       err_setstr(IOError, "Cannot open file");
+                       DECREF(f);
+                       return NULL;
+               }
+#endif
                err_errno(IOError);
                DECREF(f);
                return NULL;