Changeset 718

Show
Ignore:
Timestamp:
05/13/06 03:21:27
Author:
miyagawa
Message:

fix path_to auto mkdir bug

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plagger/lib/Plagger/Cache.pm

    r590 r718  
    3636    if (@path > 1) { 
    3737        my @chunk = @path[0..$#path-1]; 
    38         mkpath(File::Spec->catfile(@chunk), 0, 0700); 
     38        mkpath(File::Spec->catfile($self->{base}, @chunk), 0, 0700); 
    3939    } 
    4040    File::Spec->catfile($self->{base}, @path);