Allow strftime() without date in perl version

databind
Vitaliy Filippov 2014-12-10 02:42:21 +03:00
parent 04e7de97e0
commit 68a1458efc
1 changed files with 10 additions and 2 deletions

View File

@ -351,8 +351,16 @@ sub function_strftime
{ {
my $self = shift; my $self = shift;
my ($fmt, $date, $time) = @_; my ($fmt, $date, $time) = @_;
$date = "($date).' '.($time)" if $time; if ($date)
$date = "POSIX::strftime($fmt, localtime(timestamp($date)))"; {
$date = "($date).' '.($time)" if $time;
$date = "timestamp($date)";
}
else
{
$date = '';
}
$date = "POSIX::strftime($fmt, localtime($date))";
$date = "utf8on($date)" if $self->{use_utf8}; $date = "utf8on($date)" if $self->{use_utf8};
return $date; return $date;
} }