diff --git a/lib/WebService/Libris/FileCache.pm b/lib/WebService/Libris/FileCache.pm index c1d843c..d9f5883 100644 --- a/lib/WebService/Libris/FileCache.pm +++ b/lib/WebService/Libris/FileCache.pm @@ -20,7 +20,9 @@ sub get { my ($self, $key) = @_; my $filename = $self->_filename($key); return unless open my $h, '<', $filename; - Mojo::DOM->new(xml => 1, charset => 'UTF-8')->parse(do { local $/; <$h> }); + my $contents = do { local $/; <$h> }; + return unless length $contents; + Mojo::DOM->new(xml => 1, charset => 'UTF-8')->parse($contents); } sub set {