I've checked in some changes which fix this.
I would would like to close the ticket but I can't.
For some reason when I log in to RT as mikescott I have zero
visibility/permission. Logging in as guest solves the visibility but
not the permission problem. I've raised this issue before but no one
seems to pick it up.
Mike
On 1 May 2004, at 18:32, Philip Taylor (via RT) wrote:
# New Ticket Created by Philip Taylor
# Please include the string: [perl #29302]
# in the subject line of all future correspondence about this issue.
# URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=29302
On a Windows system, File::Spec returns paths with backslashes. The
HTML documentation generator (write_docs.pl etc) uses these paths in
the HTML code, resulting in links like
a href= docs\pdds\pdd00_pdd.pod.html.../a
IE handles these with no problems. Firefox (0.8) follows the link to
the right place, but then refers to itself as something like
file:///e:/parrot/cvs/parrot/docs/html/
docs%5Cpdds%5Cpdd00_pdd.pod.html
(apparently forgetting that it used to think \ was a path delimiter
and now considering it part of the filename) and so all the relative
links in that page, like
a href=..\..\../html/index.htmlContents/a
(as well as all the images and stylesheets) are incorrect.
All appears to work (in IE and Firefox) after changing
relative_path() in lib/Parrot/IO/Directory.pm to replace backslashes
with forward-slashes before returning. (The same can be achieved by
altering the two link-generating bits in lib/Parrot/Docs/Item.pm, but
I have no idea whether that would be a better place to do it.)
--
Philip Taylor
[EMAIL PROTECTED]
Index: parrot/lib/Parrot/IO/Directory.pm
===
RCS file: /cvs/public/parrot/lib/Parrot/IO/Directory.pm,v
retrieving revision 1.9
diff -u -b -r1.9 Directory.pm
--- parrot/lib/Parrot/IO/Directory.pm 27 Mar 2004 22:22:54 - 1.9
+++ parrot/lib/Parrot/IO/Directory.pm 1 May 2004 17:00:40 -
@@ -161,7 +161,9 @@
$path = $path-path if ref $path;
- return File::Spec-abs2rel($path, $self-path);
+ my $rel_path = File::Spec-abs2rel($path, $self-path);
+ $rel_path =~ tr~\\~/~;
+ return $rel_path;
}
=item Cparent()
