Subversion Repositories DevTools

Rev

Rev 5542 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5542 Rev 6177
Line 5... Line 5...
5 
 
 5 
 
6 
use Cwd qw(cwd);
 6 
use Cwd qw(cwd);
7 
use File::Basename qw(dirname);
 7 
use File::Basename qw(dirname);
8 
use File::Path qw(mkpath);
 8 
use File::Path qw(mkpath);
9 
use Pod::Find qw(pod_find);
 9 
use Pod::Find qw(pod_find);
- 
 
 10 
use File::Spec::Functions;
10 
 
 11 
 
11 
use JatsDocTools::Pod qw(pod2html pod2html_remove_cache_files);
 12 
use JatsDocTools::Pod qw(pod2html pod2html_remove_cache_files);
12 
 
 13 
 
13 
sub _relative_path {
 14 
sub _relative_path {
14 
    my($path, $prefix) = @_;
 15 
    my($path, $prefix) = @_;
Line 55... Line 56...
55 
    print "Building HTML tree at $htmldir, cwd is $prefix\n" if $args{verbose};
 56 
    print "Building HTML tree at $htmldir, cwd is $prefix\n" if $args{verbose};
56 
 
 57 
 
57 
    pod2html_remove_cache_files($cacheDir)
 58 
    pod2html_remove_cache_files($cacheDir)
58 
        if ( $args{force} );
 59 
        if ( $args{force} );
59 
 
 60 
 
- 
 
 61 
    # Need absolule paths for pod_find.
- 
 
 62 
    #   If in a symlink directory, then relative paths get confused
- 
 
 63 
    my @podpathAbs = map { catdir($prefix, $_) } @$podpath;
60 
    my %pods = pod_find(@$podpath);
 64 
    my %pods = pod_find(@podpathAbs);
61 
    @$podpath = map { _relative_path($_, $prefix) } @$podpath;
 65 
    @$podpath = map { _relative_path($_, $prefix) } @$podpath;
62 
 
 66 
 
63 
    foreach my $key (sort keys %pods) {
 67 
    foreach my $key (sort keys %pods) {
64
68
65 
        my $in_file = _relative_path($key, $prefix);
 69 
        my $in_file = _relative_path($key, $prefix);