[Mew-dist 09423] Re: y2k

[Hideaki YOSHIFUJI ( 吉藤英明 )]

吉藤英明＠東北大学情報科学です。


In article <19990622114146P.yossi at example.com> (at Tue, 22 Jun 1999 11:42:50 +0900), Hayama Yossihro <yossi at example.com> says:

>  Date: Mon, 22 Jun 2099 06:56:16 +0900
> と言うメールがありました。日付でソートしたところ先頭
> に表示されています。

これって 2038年問題ですね。


どうしてかな、と思って imsort(IM100) を見ていて気づいたのですが、
これだと 30 分単位 timezone がおかしくなってしまいます。
0830 って 8時間30分であって 8時間18分じゃないですよね?

patch を添付します。

-- 
吉藤英明 (YOSHIFUJI,Hideaki) <yoshfuji at example.com>
 Web Page: <URL:http://www.ecei.tohoku.ac.jp/%7Eyoshfuji/>
PGP FP: F731 6599 5EB2 BBA7 1515  1323 1806 A96F 5700 6B25 
-------------- next part --------------
*** imsort	Tue Jun 22 12:05:40 1999
--- imsort.new	Tue Jun 22 12:07:10 1999
***************
*** 190,196 ****
  sub sec_from_epoc ($$$$$$$) {
      my ($y, $m, $d, $hh, $mm, $ss, $tz) = @_;
  
!     $tz = ($ZONE{$tz} || $tz / 100) * 3600;
  
      $y-- if ($m < 3);
      ($y * 365 + int($y/4) - int($y/100) + int($y/400) + $TBL[$m] + $d - 719469)
--- 190,196 ----
  sub sec_from_epoc ($$$$$$$) {
      my ($y, $m, $d, $hh, $mm, $ss, $tz) = @_;
  
!     $tz = ($ZONE{$tz} * 3600) || (int($tz/100)*3600 + ($tz%100)*60);
  
      $y-- if ($m < 3);
      ($y * 365 + int($y/4) - int($y/100) + int($y/400) + $TBL[$m] + $d - 719469)