summaryrefslogtreecommitdiff
path: root/lang/perl5/patches/patch-ci
blob: 01324fa0395cf2dbc973e2665a113c92fe676f89 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
$NetBSD: patch-ci,v 1.1 2005/06/24 06:43:47 jlam Exp $

--- pp_sys.c.orig	2004-10-19 13:07:23.000000000 -0400
+++ pp_sys.c
@@ -4450,9 +4450,11 @@ PP(pp_gmtime)
 	when = (Time_t)SvIVx(POPs);
 #endif
 
-    if (PL_op->op_type == OP_LOCALTIME)
+    if (PL_op->op_type == OP_LOCALTIME) {
+	/* Explicitly invoke tzset() as localtime_r may not. */
+	tzset();
 	tmbuf = localtime(&when);
-    else
+    } else
 	tmbuf = gmtime(&when);
 
     if (GIMME != G_ARRAY) {