Skip site navigation (1)Skip section navigation (2)
Date:      Tue, 26 Jan 1999 05:58:39 +0100 (CET)
From:      dirk.meyer@dinoex.sub.org
To:        FreeBSD-gnats-submit@FreeBSD.ORG
Subject:   ports/9692: tcl80 tcl81 serious problem
Message-ID:  <199901260458.FAA14075@net2.dinoex.sub.org>

next in thread | raw e-mail | index | archive | help

>Number:         9692
>Category:       ports
>Synopsis:       Applications crash when seeing a FreeBSD generated time
>Confidential:   no
>Severity:       serious
>Priority:       high
>Responsible:    freebsd-ports
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Mon Jan 25 21:20:00 PST 1999
>Closed-Date:
>Last-Modified:
>Originator:     Dirk Meyer
>Release:        FreeBSD 2.2.7-19981027-SNAP i386
>Organization:
privat
>Environment:

	FreeBSD with timezone CET
	ln -sf /usr/share/zoneinfo/CET /etc/localtime
	tcl8.0 or tcl8.1 installed

>Description:

	FreeBSD set to use TimeZone "CET".
	During active daylight-daving-time the name of the timezone
	by all date funtions results in "CEST".
	I assume this timezone is correct.
	If such an date string is parsed by tcl, it will generate
	an runtime error.

>How-To-Repeat:

	running an application which try to parse a date/time string.
	fist recgnized in port: mail/exmh by reading an message
	created with daylight-saving-time on.

	run the inlcuded example:

# This is a shell archive.  Save it in a file, remove anything before
# this line, and then unpack it by entering "sh file".  Note, it may
# create directories; files and directories will be owned by you and
# have default permissions.
#
# This archive contains:
#
#	test-date.tcl
#
echo x - test-date.tcl
sed 's/^X//' >test-date.tcl << 'END-of-test-date.tcl'
X#!/usr/local/bin/wish
X#	Id$: test-date.tcl	1.70	24.01.1999
Xset Out [clock scan "Mon, 28 Jul 97 19:53 GMT" ]
Xputs stdout "GMT  $Out"
Xset Out [clock scan "Mon, 28 Jul 97 19:53 MET" ]
Xputs stdout "MET  $Out"
Xset Out [clock scan "Mon, 28 Jul 97 19:53 CET" ]
Xputs stdout "CET  $Out"
Xset Out [clock scan "Mon, 28 Jul 97 19:53" ]
Xputs stdout "(NO) $Out"
Xset Out [clock scan "Mon, 28 Jul 97 19:53 MEST" ]
Xputs stdout "MEST $Out"
Xset Out [clock scan "Mon, 28 Jul 97 19:53 CEST" ]
Xputs stdout "CEST $Out"
Xexit
END-of-test-date.tcl
exit


>Fix:

	add this patch to
		ports/lang/tcl75
		ports/lang/tcl76
		ports/lang/tcl80
		ports/lang/tcl81
		ports/lang/tclX75
		ports/lang/tclX80

	till it can be fixed in the main distribution.

# This is a shell archive.  Save it in a file, remove anything before
# this line, and then unpack it by entering "sh file".  Note, it may
# create directories; files and directories will be owned by you and
# have default permissions.
#
# This archive contains:
#
#	patches/patch-tclDate.c
#
echo x - patches/patch-tclDate.c
sed 's/^X//' >patches/patch-tclDate.c << 'END-of-patches/patch-tclDate.c'
X--- ../generic/tclDate.c.orig	Mon Feb 10 19:03:15 1997
X+++ ../generic/tclDate.c	Sun Jan 24 11:31:41 1999
X@@ -290,6 +290,7 @@
X     { "nt",     tZONE,     HOUR(11) },      /* Nome */
X     { "idlw",   tZONE,     HOUR(12) },      /* International Date Line West */
X     { "cet",    tZONE,    -HOUR( 1) },      /* Central European */
X+    { "cest",   tDAYZONE, -HOUR( 1) },      /* Central European Summer */
X     { "met",    tZONE,    -HOUR( 1) },      /* Middle European */
X     { "mewt",   tZONE,    -HOUR( 1) },      /* Middle European Winter */
X     { "mest",   tDAYZONE, -HOUR( 1) },      /* Middle European Summer */
END-of-patches/patch-tclDate.c
exit

>Release-Note:
>Audit-Trail:
>Unformatted:

To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-ports" in the body of the message



Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?199901260458.FAA14075>