Subversion Repositories DevTools

Rev

Rev 4779 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4779 Rev 5542
Line 78... Line 78...
78 
                if $args{verbose};
 78 
                if $args{verbose};
79 
 
 79 
 
80 
            unlink($out_file);
 80 
            unlink($out_file);
81 
            my $out_dir = dirname($out_file);
 81 
            my $out_dir = dirname($out_file);
82 
            mkpath($out_dir);
 82 
            mkpath($out_dir);
83 
 
 - 
 
84 
            my $depth = $in_file =~ tr,/,,;
 83 
            my $depth = $in_file =~ tr,/,,;
85 
            pod2html(infile  => $in_file,
 84 
            pod2html(infile  => $in_file,
86 
                     outfile => $out_file,
 85 
                     outfile => $out_file,
87 
                     depth   => $depth,
 86 
                     depth   => $depth,
88 
                     podroot => ".",
 87 
                     podroot => ".",