From a7d0f82e4815b9a48714f8529ec649fe27e3e541 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Martin=20v=2E=20L=C3=B6wis?= Date: Fri, 6 Dec 2002 12:48:53 +0000 Subject: Patch #614055: Support OpenVMS. --- Objects/stringobject.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'Objects/stringobject.c') diff --git a/Objects/stringobject.c b/Objects/stringobject.c index c234b0443b..3a69aa9efa 100644 --- a/Objects/stringobject.c +++ b/Objects/stringobject.c @@ -765,7 +765,11 @@ string_print(PyStringObject *op, FILE *fp, int flags) return ret; } if (flags & Py_PRINT_RAW) { - fwrite(op->ob_sval, 1, (int) op->ob_size, fp); +#ifdef __VMS + if (op->ob_size) fwrite(op->ob_sval, (int) op->ob_size, 1, fp); +#else + fwrite(op->ob_sval, 1, (int) op->ob_size, fp); +#endif return 0; } -- cgit v1.2.1