diff options
| author | Paul C. Buetow (mars.fritz.box) <paul@buetow.org> | 2014-04-27 12:45:27 +0200 |
|---|---|---|
| committer | Paul C. Buetow (mars.fritz.box) <paul@buetow.org> | 2014-04-27 12:45:27 +0200 |
| commit | 1fa92b8d5ab9b4a50be200d808273e425f2574f8 (patch) | |
| tree | cc0034f31ff3719cebeefcb532dda88469afa29b /Xerl | |
| parent | 5c8a2197c22cdc7f1eb69df07e907b54a37f8edd (diff) | |
You are number 6! Who is number one?
Diffstat (limited to 'Xerl')
| -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]; |