stas 2003/07/22 07:42:42
Modified: lib DocSet.pm
lib/DocSet 5005compat.pm
lib/DocSet/Doc Common.pm
Log:
docset sync:
- fix fetch_pdf_doc_ver not to try to copy the pdf version of the
document to the same directory.
Revision Changes Path
1.10 +1 -1 modperl-docs/lib/DocSet.pm
Index: DocSet.pm
===================================================================
RCS file: /home/cvs/modperl-docs/lib/DocSet.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- DocSet.pm 9 Apr 2003 06:23:38 -0000 1.9
+++ DocSet.pm 22 Jul 2003 14:42:41 -0000 1.10
@@ -1,6 +1,6 @@
package DocSet;
-$VERSION = '0.16';
+$VERSION = '0.17';
=head1 NAME
1.4 +2 -5 modperl-docs/lib/DocSet/5005compat.pm
Index: 5005compat.pm
===================================================================
RCS file: /home/cvs/modperl-docs/lib/DocSet/5005compat.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- 5005compat.pm 4 Sep 2002 16:01:18 -0000 1.3
+++ 5005compat.pm 22 Jul 2003 14:42:41 -0000 1.4
@@ -1,5 +1,7 @@
package DocSet::5005compat;
+$DocSet::5005compat::VERSION = '0.01';
+
use strict;
use Symbol ();
use File::Basename;
@@ -18,11 +20,6 @@
eval { require File::Spec::Functions; } or
die "this is only Perl $], you need to install File-Spec from CPAN";
-
- # ExtUtils::MakeMaker v < 6.00 stupidly tries to parse any VERSION
- # it sees, so it fails latter on in the import() function. so we
- # have to workaround it. even the following comment will do
- # $DocSet::5005compat::VERSION = 0.01;
my $min_version = 0.82;
unless ($File::Spec::VERSION >= $min_version) {
1.16 +2 -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.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- Common.pm 30 Jun 2002 15:52:41 -0000 1.15
+++ Common.pm 22 Jul 2003 14:42:41 -0000 1.16
@@ -50,7 +50,8 @@
#print "TRYING $dst_path $pdf_path \n";
my %pdf = ();
- if (-e $pdf_path) {
+ # if in the pdf tree (rel_pdf) there is nothing to copy
+ if (-e $pdf_path && $pdf_path ne $dst_path) {
copy_file($pdf_path, $dst_path);
%pdf = (
size => format_bytes(-s $dst_path),
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
