From 65859d4485539c11d3f707ed14d897aa1e336608 Mon Sep 17 00:00:00 2001
From: vitalif <vitalif@2be256b4-0725-11dc-8e68-8b2fc2fe2491>
Date: Thu, 27 Nov 2014 23:07:26 +0000
Subject: [PATCH] Fix compile/loadfile

---
 VMXTemplate.pm | 88 +++++++++++++++++++++++---------------------------
 1 file changed, 40 insertions(+), 48 deletions(-)

diff --git a/VMXTemplate.pm b/VMXTemplate.pm
index d29bff2..9a4eb6c 100644
--- a/VMXTemplate.pm
+++ b/VMXTemplate.pm
@@ -139,16 +139,6 @@ sub parse_real
     {
         $self->{options}->{errors} = [];
     }
-    # Load code
-    if ($filename)
-    {
-        $filename = $self->{options}->{root}.$filename if $filename !~ m!^/!so;
-        unless ($text = $self->loadfile($filename))
-        {
-            $self->{options}->error("couldn't load template file '$filename'");
-            return $is_outer ? $self->{options}->get_errors : '';
-        }
-    }
     my ($code, $key) = $self->compile($text, $filename);
     if (!$self->{loaded_templates}->{$key})
     {
@@ -216,42 +206,6 @@ sub _call_block
     $self->{options}->error("Unknown block '$block'$errorinfo");
 }
 
-# Load file
-# $textref = $obj->loadfile($file)
-sub loadfile
-{
-    my $self = shift;
-    my ($fn) = @_;
-    my $load = 0;
-    my $mtime;
-    if (!$self->{ltimes}->{$fn} || $self->{reload} &&
-        $self->{ltimes}->{$fn}+$self->{reload} < time)
-    {
-        $mtime = [ stat $fn ] -> [ 9 ];
-        $load = 1 if !$self->{ltimes}->{$fn} || $mtime > $self->{mtimes}->{$fn};
-    }
-    if ($load)
-    {
-        # reload if file has changed
-        my ($fd, $text);
-        if (open $fd, "<", $fn)
-        {
-            local $/ = undef;
-            $text = <$fd>;
-            close $fd;
-        }
-        else
-        {
-            return undef;
-        }
-        # delete old compiled code
-        $self->{mtimes}->{$fn} = $mtime;
-        $self->{ltimes}->{$fn} = time;
-        return $text;
-    }
-    return undef;
-}
-
 # Compile code and cache it on disk
 # ($sub, $cache_key) = $self->compile($code, $filename);
 # print &$sub($self);
@@ -261,9 +215,40 @@ sub compile
     my ($code, $fn, $force_reload) = @_;
     Encode::_utf8_off($code); # for md5_hex
     my $key = $fn ? 'F'.$fn : 'C'.md5_hex($code);
-    if (!$force_reload && (my $res = $self->{compiled_code}->{$key}))
+    $force_reload = 1 if !$self->{compiled_code}->{$key};
+
+    # Load code
+    my $mtime;
+    if ($fn)
     {
-        return ($res, $key);
+        $fn = $self->{options}->{root}.$fn if $fn !~ m!^/!so;
+        if (!$force_reload && $self->{reload} && $self->{ltimes}->{$fn}+$self->{reload} < time)
+        {
+            $mtime = [ stat $fn ] -> [ 9 ];
+            $force_reload = 1 if $mtime > $self->{mtimes}->{$fn};
+        }
+    }
+
+    if (!$force_reload)
+    {
+        return ($self->{compiled_code}->{$key}, $key);
+    }
+
+    if ($fn)
+    {
+        # reload if file has changed
+        my $fd;
+        if (open $fd, "<", $fn)
+        {
+            local $/ = undef;
+            $code = <$fd>;
+            close $fd;
+        }
+        else
+        {
+            $self->{options}->error("couldn't load template file '$fn': $!");
+            return ();
+        }
     }
 
     # inline code
@@ -329,6 +314,13 @@ sub compile
         return ();
     }
 
+    if ($fn)
+    {
+        # remember modification and load time
+        $self->{mtimes}->{$fn} = $mtime;
+        $self->{ltimes}->{$fn} = time;
+    }
+
     return ($self->{compiled_code}->{$key}, $key);
 }