return fgetname(f,buf);
#else
croak("Don't know how to get file name");
+ return NULL;
#endif
}
#ifdef HAS_SETLINEBUF
setlinebuf(f);
#else
+# ifdef __BORLANDC__ /* Borland doesn't like NULL size for _IOLBF */
+ setvbuf(f, Nullch, _IOLBF, BUFSIZ);
+# else
setvbuf(f, Nullch, _IOLBF, 0);
+# endif
#endif
}