Changeset 448

Timestamp:

04/01/06 04:10:39

Author:

miyagawa

Message:

path_to now creates necessary directories. Fixes #118

Files:

• trunk/plagger/lib/Plagger/Cache.pm (modified) (2 diffs)

trunk/plagger/lib/Plagger/Cache.pm

@@ -1 +1 @@
-package Plagger::Cache;
-use strict;
+use File::Path;
-use File::Spec;
-use HTTP::Cookies;
@@ -33 +34 @@
-sub path_to {
-    my($self, @path) = @_;
+    if (@path > 1) {
+        my @chunk = @path[0..$#path-1];
+        mkpath(File::Spec->catfile(@chunk), 0, 0700);
+    }
-    File::Spec->catfile($self->{base}, @path);
-}