equal
deleted
inserted
replaced
418 else { |
418 else { |
419 $pathRelativeToDocRoot = "..\\$pathRelativeToDocRoot"; |
419 $pathRelativeToDocRoot = "..\\$pathRelativeToDocRoot"; |
420 } |
420 } |
421 } |
421 } |
422 |
422 |
|
423 my $htmlroot = $pathRelativeToDocRoot; |
|
424 $htmlroot =~ s/\\/\//g; # HTML link format uses forward slashes |
|
425 |
423 my @args = ("--podpath=.", |
426 my @args = ("--podpath=.", |
424 "--podroot=.", |
427 "--podroot=.", |
425 "--htmlroot=$pathRelativeToDocRoot", |
428 "--htmlroot=$htmlroot", |
426 "--recurse", |
429 "--recurse", |
427 "--infile=$podFileName", |
430 "--infile=$podFileName", |
428 "--outfile=$outputFileName"); |
431 "--outfile=$outputFileName"); |
429 # push (@args, '--verbose') if ($options{verbose}); |
432 # push (@args, '--verbose') if ($options{verbose}); |
430 if ($css) { |
433 if ($css) { |