stas 02/04/18 23:06:53 Modified: lib/DocSet/Doc Common.pm Log: oops Revision Changes Path 1.8 +10 -5 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.7 retrieving revision 1.8 diff -u -r1.7 -r1.8 --- Common.pm 19 Apr 2002 05:55:43 -0000 1.7 +++ Common.pm 19 Apr 2002 06:06:53 -0000 1.8 @@ -86,6 +86,7 @@ my %src = (); if (-e $src_path) { + copy_file($src_path, $dst_path); %src = ( size => format_bytes(-s $dst_path), link => filename($dst_path), @@ -203,13 +204,13 @@ %pdf_data = %{ $self->fetch_pdf_doc_ver() } search for a pdf version of the same document in the parallel tree -(usually the I<dst_html> tree) and copy+gzip it to the same dir as the +(usually the I<dst_html> tree) and copy it to the same dir as the html version. Later we link to it from the html version of the document if the pdf version is found in the same directory as the html one. The function returns a reference to a hash with the keys: I<size> -- -for the size of the gzipped file and the location of the file relative +for the size of the file and the location of the file relative to the current document (it's in the same directory after all). =item * fetch_src_doc_ver @@ -220,12 +221,16 @@ %src_data = %{ $self->fetch_src_doc_ver() } fetch the source version of the same document in the parallel tree -(usually the I<src> tree) and copy+gzip it to the same dir as the html +(usually the I<src> tree) and copy it to the same dir as the html version. Later we link to it from the html version of the document if -the source version is found in the same directory as the html one. +the source version is found in the same directory as the html +one. Notice that we add a I<.orig> extension, because otherwise the +rendered version of the source document may have the same full name as +the source file (e.g. if the source was I<.html> and destination one +is I<.html> too). The function returns a reference to a hash with the keys: I<size> -- -for the size of the gzipped file and the location of the file relative +for the size of the source file and the location of the file relative to the current document (it's in the same directory after all). =item * pod_pom_html_view_seq_link_transform_path
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]