stas 2002/06/11 19:53:46 Modified: lib/DocSet Doc.pm lib/DocSet/Doc Common.pm Log: move the URI normalization closer to the source Revision Changes Path 1.7 +1 -1 modperl-docs/lib/DocSet/Doc.pm Index: Doc.pm =================================================================== RCS file: /home/cvs/modperl-docs/lib/DocSet/Doc.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -u -r1.6 -r1.7 --- Doc.pm 3 Apr 2002 07:26:24 -0000 1.6 +++ Doc.pm 12 Jun 2002 02:53:46 -0000 1.7 @@ -134,7 +134,7 @@ if (my $path = find_src_doc($path)) { $path = catfile $self->{dir}{abs_doc_root}, $path; $path =~ s|/\./|/|; # avoid .././foo links. - return $path; + return path2uri($path); } return undef; 1.12 +0 -1 modperl-docs/lib/DocSet/Doc/Common.pm Index: Common.pm =================================================================== RCS file: /home/cvs/modperl-docs/lib/DocSet/Doc/Common.pm,v retrieving revision 1.11 retrieving revision 1.12 diff -u -r1.11 -r1.12 --- Common.pm 11 Jun 2002 19:55:07 -0000 1.11 +++ Common.pm 12 Jun 2002 02:53:46 -0000 1.12 @@ -110,7 +110,6 @@ my $doc_obj = get_render_obj(); my $res_path = $doc_obj->transform_src_doc($path); - $res_path = path2uri($res_path); # win32 fix, convert to URI unless ($res_path) { # report broken links if we were told to if (DocSet::RunTime::get_opts('validate_links')) {
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]