vitalif
/
VMXTemplate
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
VMXTemplate/Compiler.pm
View File

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