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 Tue, 22 Jul 2003 14:42:42 GMT
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: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org


Mime
View raw message