From 68a1458efc6cd3ec6dc76d947a2beefe1ac3c3d5 Mon Sep 17 00:00:00 2001
From: Vitaliy Filippov <vitalif@yourcmc.ru>
Date: Wed, 10 Dec 2014 02:42:21 +0300
Subject: [PATCH] Allow strftime() without date in perl version

---
 VMXTemplate/Compiler.pm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/VMXTemplate/Compiler.pm b/VMXTemplate/Compiler.pm
index 9b43391..cf57ddd 100644
--- a/VMXTemplate/Compiler.pm
+++ b/VMXTemplate/Compiler.pm
@@ -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;
 }