Made ConfigTree.fix take list os well, added test

[eval.git] / sherlock / perl / Object.pm

diff --git a/sherlock/perl/Object.pm b/sherlock/perl/Object.pm
index 07f7899cafef815221c687aa1f98a0572a75534a..38a9d2e0f10aec48a00283b176655a14aba7db06 100644 (file)
--- a/sherlock/perl/Object.pm
+++ b/sherlock/perl/Object.pm
@@ -197,10 +197,11 @@ sub read($$@) {
        my $read_something = 0;
        my $obj = $self;
        my $raw;
+       my $read = $opts{read} ? $opts{read} : sub { my $fh = shift; return $_ = <$fh>; };
        if ($opts{raw}) {
                $raw = $obj->{"RAW"} = [];
        }
-       while (<$fh>) {
+       while ($read->($fh)) {
                chomp;
                /^$/ && last;
                my ($a, $v) = /^(.)(.*)$/ or return undef;