From 32a1fdccf8368599c21e703998fcfb4d328fbe0a Mon Sep 17 00:00:00 2001
From: "Paul C. Buetow (mars.fritz.box)" <paul@buetow.org>
Date: Sun, 27 Apr 2014 11:53:29 +0200
Subject: Beware the one behind you.

---
 Xerl/Page/Templates.pm | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

diff --git a/Xerl/Page/Templates.pm b/Xerl/Page/Templates.pm
index 89cd829..d18ebcb 100644
--- a/Xerl/Page/Templates.pm
+++ b/Xerl/Page/Templates.pm
@@ -168,14 +168,6 @@ sub print($;$) {
   my $time  = $_[1];
   my $hflag = 1;
 
-  my $eval = sub {
-    my $perl = shift;
-    my $str = eval $perl;
-    #$str =~ s/</&lt;/g;
-    #$str =~ s/>/&gt;/g;
-    return $str;
-  };
-
   for my $line ( @{ $self->get_array() } ) {
     if ( $hflag == 1 && $config->exists('noparse') ) {
       $line =~ s#^Content-Type.*#Content-Type: text/plain#i;
@@ -183,14 +175,14 @@ sub print($;$) {
     }
 
     $line =~ s/  +/ /g;
-    redo if !$flag and $line =~ s/<perl>((?:.|\n)*?)<\/perl>/$eval->($1)/ego;
+    redo if !$flag and $line =~ s/<perl>((?:.|\n)*?)<\/perl>/eval $1/ego;
 
     if ( !$flag and $line =~ s/<perl>(.*)$//o ) {
       $code .= $1;
       $flag = 1;
 
     }
-    elsif ( $line =~ s/^(.*?)<\/perl>/$eval->($code.$1)/eo ) {
+    elsif ( $line =~ s/^(.*?)<\/perl>/eval $code.$1/eo ) {
       ( $code, $flag ) = ( '', 0 );
       redo;
 
-- 
cgit v1.2.3