diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-05-29 17:13:50 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-05-29 17:13:50 (GMT) |
| commit | 2c4913d4794ef86fd0c540adc071b30c8f595f43 (patch) | |
| tree | 57506363b3251cbfbee2417fb405df1fdcbaa4a9 /library | |
| parent | 3681b8fdb58e9f499f864c9eef58ef520befc504 (diff) | |
| download | tcl-2c4913d4794ef86fd0c540adc071b30c8f595f43.zip tcl-2c4913d4794ef86fd0c540adc071b30c8f595f43.tar.gz tcl-2c4913d4794ef86fd0c540adc071b30c8f595f43.tar.bz2 | |
Apply Flightaware DST fix
Diffstat (limited to 'library')
| -rw-r--r-- | library/clock.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/clock.tcl b/library/clock.tcl index 7979a88..bd199a3 100644 --- a/library/clock.tcl +++ b/library/clock.tcl @@ -1793,14 +1793,14 @@ proc ::tcl::clock::DeterminePosixDSTTime { z bound y } { # Determine the start or end day of DST - set date [dict create era CE year $y] + set date [dict create era CE year $y gregorian 1] set doy [dict get $z ${bound}DayOfYear] if { $doy ne {} } { # Time was specified as a day of the year if { [dict get $z ${bound}J] ne {} - && [IsGregorianLeapYear $y] + && [IsGregorianLeapYear $date] && ( $doy > $FEB_28 ) } { incr doy } |