Changeset 420

Show
Ignore:
Timestamp:
09/14/07 15:33:26 (1 year ago)
Author:
ogawa
Message:

Modification for file search paths.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • ModifiedDate/trunk/ModifiedDate.pl

    r279 r420  
    4747 
    4848    my $blog = $_[0]->stash('blog'); 
    49     my @paths = ($file, 
    50                  map File::Spec->catfile($_, $file), $blog->site_path, $blog->archive_path); 
     49 
     50    my @paths = map { File::Spec->catfile($_, $file) } 
     51        ($blog->site_path, $blog->archive_path, ''); 
    5152    my $path; 
    5253    for my $p (@paths) {