From 1fa92b8d5ab9b4a50be200d808273e425f2574f8 Mon Sep 17 00:00:00 2001
From: "Paul C. Buetow (mars.fritz.box)" <paul@buetow.org>
Date: Sun, 27 Apr 2014 12:45:27 +0200
Subject: You are number 6!  Who is number one?

---
 Xerl/Page/Content.pm | 3 ++-
 Xerl/Tools/FileIO.pm | 5 +++++
 2 files changed, 7 insertions(+), 1 deletion(-)

(limited to 'Xerl')

diff --git a/Xerl/Page/Content.pm b/Xerl/Page/Content.pm
index 3a33c85..e2dd045 100644
--- a/Xerl/Page/Content.pm
+++ b/Xerl/Page/Content.pm
@@ -119,7 +119,8 @@ sub _insertrules($$$) {
       elsif ( lc $name eq 'includerun' ) {
         my $scriptpath = $config->get_contentpath() . $text;
         my $io = Xerl::Tools::FileIO->new( path => $scriptpath );
-        push @content, eval $io->fslurp();
+        $io->fslurp();
+        push @content, eval $io->str();
 
       }
       elsif ( lc $name eq 'navigation' ) {
diff --git a/Xerl/Tools/FileIO.pm b/Xerl/Tools/FileIO.pm
index 98765df..cd3e6bb 100644
--- a/Xerl/Tools/FileIO.pm
+++ b/Xerl/Tools/FileIO.pm
@@ -121,6 +121,11 @@ sub pop($) {
   return $pop;
 }
 
+sub str($) {
+  my Xerl::Tools::FileIO $self = $_[0];
+  return join '', @{ $self->get_array() };
+}
+
 sub _fwrite($;$) {
   my Xerl::Tools::FileIO $self = $_[0];
   my $append = $_[1];
-- 
cgit v1.2.3