summaryrefslogtreecommitdiff
path: root/lang/perl5/patches/patch-ci
blob: f6b8b51562546ae649a7903b2cc38946f78f43d9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
$NetBSD: patch-ci,v 1.6 2009/12/14 06:36:57 seb Exp $

--- pp_sys.c.orig	2009-12-06 17:53:56.000000000 +0000
+++ pp_sys.c	2009-12-06 17:55:04.000000000 +0000
@@ -4463,12 +4463,15 @@
 	when = (Time_t)SvIVx(POPs);
 #endif
 
-    if (PL_op->op_type == OP_LOCALTIME)
+    if (PL_op->op_type == OP_LOCALTIME) {
 #ifdef LOCALTIME_EDGECASE_BROKEN
 	tmbuf = S_my_localtime(aTHX_ &when);
 #else
+	/* Explicitly invoke tzset() as localtime_r may not. */
+	tzset();
 	tmbuf = localtime(&when);
 #endif
+    }
     else
 	tmbuf = gmtime(&when);