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 TODO
Date Fri, 19 Apr 2002 05:55:44 GMT
stas        02/04/18 22:55:44

  Modified:    lib/DocSet/Doc Common.pm
               .        TODO
  Log:
  now the 'src' link links to a file.orig so it won't be overwritten by the
  generated html if the source was in html in first place
  
  Revision  Changes    Path
  1.7       +4 -3      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.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- Common.pm	14 Apr 2002 18:44:07 -0000	1.6
  +++ Common.pm	19 Apr 2002 05:55:43 -0000	1.7
  @@ -78,13 +78,14 @@
       my $dst_path = catfile $self->{dst_root}, $self->{src_uri};
       my $src_path = catfile $self->{src_root}, $self->{src_uri};
   
  +    # the source file may have the same extension as the dest file, so
  +    # add a new extension. This will also be useful for doing patches.
  +    $dst_path .= ".orig";
  +
   #print "TRYING $dst_path $src_path \n";
   
       my %src = ();
       if (-e $src_path) {
  -        # it's ok if the source file has the same name as the dest,
  -        # because the final dest file wasn't created yet.
  -        copy_file($src_path, $dst_path);
           %src = (
               size => format_bytes(-s $dst_path),
               link => filename($dst_path),
  
  
  
  1.39      +0 -3      modperl-docs/TODO
  
  Index: TODO
  ===================================================================
  RCS file: /home/cvs/modperl-docs/TODO,v
  retrieving revision 1.38
  retrieving revision 1.39
  diff -u -r1.38 -r1.39
  --- TODO	18 Apr 2002 04:08:03 -0000	1.38
  +++ TODO	19 Apr 2002 05:55:43 -0000	1.39
  @@ -13,9 +13,6 @@
   DocSet:
   -------
   
  -- SRC should link to the source page, not the generated HTML, even if
  -  the source was HTML. This now broken, need to fix.
  -
   - how do we make L<foo|../search/swish.cgi> I cannot do search::swish,
     it's not a doc.
     STATUS: need to extend pod parser with U<title (url|relative url)>
  
  
  

---------------------------------------------------------------------
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