perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-docs/lib/DocSet/Doc Common.pm
Date Wed, 12 Jun 2002 02:53:46 GMT
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: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org


Mime
View raw message