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]
