don't read from empty cache files

moritz · Jun 22, 2011 · 6980af5 · 6980af5
1 parent e2794cb
commit 6980af5
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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 {