Hack to open resource fork on the Mac: open(filename, '*rb').

diff --git a/Objects/fileobject.c b/Objects/fileobject.c
index f87e22e430ecaa613e495dd69741b91a96a0a335..7da32a95644e99bba21cbe18ea6810e61b7d0ec9 100644 (file)
--- a/Objects/fileobject.c
+++ b/Objects/fileobject.c
@@ -61,9 +61,17 @@ newfileobject(name, mode)
        f = (fileobject *) newopenfileobject((FILE *)NULL, name, mode);
        if (f == NULL)
                return NULL;
-       if ((f->f_fp = fopen(name, mode)) == NULL) {
+#ifdef THINK_C
+       if (*mode == '*') {
+               FILE *fopenRF();
+               f->f_fp = fopenRF(name, mode+1);
+       }
+       else
+#endif
+       f->f_fp = fopen(name, mode);
+       if (f->f_fp == NULL) {
+               err_errno(RuntimeError);
                DECREF(f);
-               err_errno(RuntimeError); /* XXX Should use another error */
                return NULL;
        }
        return (object *)f;