diff options
-rw-r--r-- | lib/WebCoso/Config.pm | 2 | ||||
-rw-r--r-- | t/01-config.t | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/WebCoso/Config.pm b/lib/WebCoso/Config.pm index ab62179..ebc3c75 100644 --- a/lib/WebCoso/Config.pm +++ b/lib/WebCoso/Config.pm @@ -108,7 +108,7 @@ sub res { for my $filename (@abs_source_files) { $resource->set_property( {filename=>$filename}, - datastream => _open_file($filename), + datastream => sub{_open_file($filename)}, ); } diff --git a/t/01-config.t b/t/01-config.t index 79bca63..4fee455 100644 --- a/t/01-config.t +++ b/t/01-config.t @@ -29,7 +29,7 @@ is_deeply( [$resources[0]->get_axis_values('filename')], ["$thisdir/src/file1.rest.txt"], 'filename'); -my $content=do {my $fh=$resources[0]->get_property({filename=>"$thisdir/src/file1.rest.txt"},'datastream');local $/;<$fh>}; +my $content=$resources[0]->get_property_string({filename=>"$thisdir/src/file1.rest.txt"},'datastream'); is($content, <<'EOF',''); Titolo |