diff options
| -rw-r--r-- | Xerl/Page/Content.pm | 3 | ||||
| -rw-r--r-- | Xerl/Tools/FileIO.pm | 5 |
2 files changed, 7 insertions, 1 deletions
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]; |