Fix Y2K problem once again.
Этот коммит содержится в:
родитель
84f178c86f
Коммит
72da5347c4
@ -21,7 +21,8 @@ my $parsedates = eval "require Date::Parse";
|
||||
sub timef
|
||||
{
|
||||
my @time=localtime($_[0]);
|
||||
return sprintf "%02d-%02d-%02d %02d:%02d", $time[4]+1, $time[3], $time[5]%100, $time[2], $time[1];
|
||||
return sprintf "%02d-%02d-%02d %02d:%02d", $time[4]+1, $time[3],
|
||||
$time[5]+1900, $time[2], $time[1];
|
||||
}
|
||||
|
||||
# parse given string as a date and return unix time
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user