[pkgsrc/trunk]: pkgsrc/lang/perl58 The Open Group says that localtime_r() doe...

[jlam <jlam%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/707d96798f48
branches:  trunk
changeset: 485452:707d96798f48
user:      jlam <jlam%pkgsrc.org@localhost>
date:      Sat Dec 11 16:19:29 2004 +0000

description:
The Open Group says that localtime_r() doesn't need to ensure that
the tz* related variables are initialized when it is invoked.  In
fact, Solaris does do this while NetBSD 2.0 does not.  Explicitly call
tzset() before calling localtime_r() to initialize the local timezone
data.  This fixes the output of:

        perl -e '$t = localtime($^T); print "$t\n";' ; date

to always print the time in the local timezone twice instead of the
first time in UTC and the second in the local timezone.  Bump the
PKGREVISION.

diffstat:

 lang/perl58/Makefile         |   4 ++--
 lang/perl58/distinfo         |   3 ++-
 lang/perl58/patches/patch-ci |  18 ++++++++++++++++++
 3 files changed, 22 insertions(+), 3 deletions(-)

diffs (55 lines):

diff -r 88b8819b8713 -r 707d96798f48 lang/perl58/Makefile
--- a/lang/perl58/Makefile      Sat Dec 11 15:12:29 2004 +0000
+++ b/lang/perl58/Makefile      Sat Dec 11 16:19:29 2004 +0000
@@ -1,4 +1,4 @@
-# $NetBSD: Makefile,v 1.64 2004/12/10 06:01:08 jlam Exp $
+# $NetBSD: Makefile,v 1.65 2004/12/11 16:19:29 jlam Exp $
 
 # The following two variables should have empty values unless we're
 # building a perl snapshot or release candidate.
@@ -9,7 +9,7 @@
 .if empty(PERL5_SNAPSHOT) && empty(PERL5_RC_VERS)
 DISTNAME=      perl-${PERL5_VERS}
 PKGNAME=       perl-${PERL5_VERS}
-PKGREVISION=   4
+PKGREVISION=   5
 SNAPSHOT_SITES=        # empty
 .else
 .  if !empty(PERL5_SNAPSHOT)
diff -r 88b8819b8713 -r 707d96798f48 lang/perl58/distinfo
--- a/lang/perl58/distinfo      Sat Dec 11 15:12:29 2004 +0000
+++ b/lang/perl58/distinfo      Sat Dec 11 16:19:29 2004 +0000
@@ -1,4 +1,4 @@
-$NetBSD: distinfo,v 1.22 2004/11/26 03:29:43 grant Exp $
+$NetBSD: distinfo,v 1.23 2004/12/11 16:19:29 jlam Exp $
 
 SHA1 (perl-5.8.5.tar.bz2) = 6fec546bd96070c3c14b5b5fd2cd9af3185905fe
 Size (perl-5.8.5.tar.bz2) = 9464689 bytes
@@ -14,4 +14,5 @@
 SHA1 (patch-cf) = 23cf46c8d683b688878433ec9b33f3c65528cd28
 SHA1 (patch-cg) = e1b56aaa40934f78298d1fd9303fbae33c472d8e
 SHA1 (patch-ch) = 6cfd77bba102a4bca82576f061ba60c1610c4d07
+SHA1 (patch-ci) = 3f3334a93e34a9f8ea12a52b06e010c58ebd6035
 SHA1 (patch-zc) = eb81edd1144ec46285898afc641c03a3aad54977
diff -r 88b8819b8713 -r 707d96798f48 lang/perl58/patches/patch-ci
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/lang/perl58/patches/patch-ci      Sat Dec 11 16:19:29 2004 +0000
@@ -0,0 +1,18 @@
+$NetBSD: patch-ci,v 1.1 2004/12/11 16:19:29 jlam Exp $
+
+--- pp_sys.c.orig      2004-03-22 14:54:11.000000000 -0500
++++ pp_sys.c   2004-12-11 10:47:42.000000000 -0500
+@@ -4438,9 +4438,11 @@
+       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) {