- added check for cache-Dir

lib/SLUB/LZA/Rosetta/TA.pm

@@ -49,7 +49,11 @@ BEGIN {
 }
 
 END {
-    YAML::DumpFile($cache_path, %cache);
+    if ($cache_path->parent->is_dir && !$cache_path->parent->parent->is_rootdir && $cache_path->touch()) {
+        YAML::DumpFile($cache_path, %cache)
+    } else {
+        warn "The $cache_path could not be written, because dir ".$cache_path->parent()." is not writeable";
+    }
 }
 
 1;