Allow strftime() without date in perl version
parent
04e7de97e0
commit
68a1458efc
|
@ -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;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue