From d0d6cd4b581cb016493401e190e5b813218816e5 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Wed, 2 Jan 2008 21:20:15 +0000
Subject: better handling of non-existing files, and a --clean option

git-svn-id: svn://luxion/repos/WebCoso/trunk@319 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 lib/File/Cache/Parsed.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lib/File')

diff --git a/lib/File/Cache/Parsed.pm b/lib/File/Cache/Parsed.pm
index a3843d1..bc4036d 100644
--- a/lib/File/Cache/Parsed.pm
+++ b/lib/File/Cache/Parsed.pm
@@ -80,7 +80,9 @@ sub get {
 
     return $self->{cache}{$filename} if exists $self->{cache}{$filename};
 
-    my $contents=file($filename)->slurp;
+    my $contents=eval {file($filename)->slurp};
+
+    return if $@;
 
     my $pp=first {$filename =~ m{$_->[0]}} @{$self->{parsers}};
     if ($pp) {
-- 
cgit v1.2.3