Return-Path: Delivered-To: apmail-perl-docs-cvs-archive@perl.apache.org Received: (qmail 64227 invoked by uid 500); 11 Jun 2002 19:55:08 -0000 Mailing-List: contact docs-cvs-help@perl.apache.org; run by ezmlm Precedence: bulk List-Post: List-Help: List-Unsubscribe: List-Subscribe: Delivered-To: mailing list docs-cvs@perl.apache.org Received: (qmail 64216 invoked by uid 500); 11 Jun 2002 19:55:08 -0000 Delivered-To: apmail-modperl-docs-cvs@apache.org Date: 11 Jun 2002 19:55:07 -0000 Message-ID: <20020611195507.35656.qmail@icarus.apache.org> From: pereinar@apache.org To: modperl-docs-cvs@apache.org Subject: cvs commit: modperl-docs/lib/DocSet/Doc Common.pm X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N pereinar 2002/06/11 12:55:07 Modified: lib/DocSet/Doc Common.pm Log: Fix Win32, convert POD URI links to '/' instead of '\'. Revision Changes Path 1.11 +1 -0 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.10 retrieving revision 1.11 diff -u -r1.10 -r1.11 --- Common.pm 14 May 2002 10:13:32 -0000 1.10 +++ Common.pm 11 Jun 2002 19:55:07 -0000 1.11 @@ -110,6 +110,7 @@ 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: docs-cvs-unsubscribe@perl.apache.org For additional commands, e-mail: docs-cvs-help@perl.apache.org