Check whether cachedir was created when mkpath returned false

hitode909 · Jan 23, 2014 · fef6d7c · fef6d7c
1 parent 6100f34
commit fef6d7c
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/lib/Text/Xslate.pm b/lib/Text/Xslate.pm
@@ -409,8 +409,10 @@ sub _load_source {
         my $cachedir      = File::Spec->catpath($volume, $dir, '');
         if(not -e $cachedir) {
             require File::Path;
-            eval { File::Path::mkpath($cachedir) }
+            my $created = eval { File::Path::mkpath($cachedir) };
-                or Carp::croak("Xslate: Cannot prepare cache directory $cachepath (ignored): $@");
+            if (!$created && ! -e $cachedir) {
+                Carp::croak("Xslate: Cannot prepare cache directory $cachepath (ignored): $@");
+            }
         }
 
         my $tmpfile = sprintf('%s.%d.d', $cachepath, $$, $self);