Change 11695 by jhi@alpha on 2001/08/17 01:49:12
Subject: [PATCH] *time_r again
From: "Arthur Bergman" <[EMAIL PROTECTED]>
Date: Thu, 16 Aug 2001 16:01:54 +0200
Message-ID: <00ca01c1265c$0175f940$21000a0a@vogw2kdev>
Affected files ...
... //depot/perl/op.h#90 edit
Differences ...
==== //depot/perl/op.h#90 (text) ====
Index: perl/op.h
--- perl/op.h.~1~ Thu Aug 16 20:00:05 2001
+++ perl/op.h Thu Aug 16 20:00:05 2001
@@ -464,7 +464,21 @@
typedef struct {
struct tm* tmbuff;
} REBUF;
-#define localtime(a) (localtime_r(a,PL_reentrant_buffer->tmbuff) &&
PL_reentrant_buffer->tmbuff)
-#define gmtime(a) (gmtime_r(a,PL_reentrant_buffer->tmbuff) &&
PL_reentrant_buffer->tmbuff)
+
+#define localtime(a) (localtime_r(a,PL_reentrant_buffer->tmbuff &&
+PL_reentrant_buffer->tmbuff)
+#define gmtime(a) (gmtime_r(a,PL_reentrant_buffer->tmbuff &&
+PL_reentrant_buffer->tmbuff)
+
+#if defined(__hpux) && defined(__ux_version) && __ux_version <= 1020
+
+/* HP-UX 10.20 returns 0 on success, what it returns on failure is hidden
+ in the fog somewhere, possibly -1 which means the following should do
+ the right thing - 20010816 sky */
+
+#undef localtime
+#undef gmtime
+#define localtime(a) ((localtime_r(a,PL_reentrant_buffer->tmbuff)+1) &&
+PL_reentrant_buffer->tmbuff)
+#define gmtime(a) ((gmtime_r(a,PL_reentrant_buffer->tmbuff)+1) &&
+PL_reentrant_buffer->tmbuff)
+#endif /* HP-UX 10.20 */
+
#endif
End of Patch.
