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: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
