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.pm RunTime.pm Util.pm
Date Fri, 22 Mar 2002 07:00:30 GMT
stas        02/03/21 23:00:30

  Modified:    lib/DocSet Doc.pm RunTime.pm Util.pm
  Log:
  bug fixes
  
  Revision  Changes    Path
  1.5       +1 -1      modperl-docs/lib/DocSet/Doc.pm
  
  Index: Doc.pm
  ===================================================================
  RCS file: /home/cvs/modperl-docs/lib/DocSet/Doc.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- Doc.pm	22 Mar 2002 02:01:51 -0000	1.4
  +++ Doc.pm	22 Mar 2002 07:00:29 -0000	1.5
  @@ -129,7 +129,7 @@
       my($self, $path) = @_;
   
       if (my $path = find_src_doc($path)) {
  -        my $path = catfile $self->{dir}{abs_doc_root}, $path;
  +        $path = catfile $self->{dir}{abs_doc_root}, $path;
           $path =~ s|/\./|/|; # avoid .././foo links.
           return $path;
       }
  
  
  
  1.3       +1 -0      modperl-docs/lib/DocSet/RunTime.pm
  
  Index: RunTime.pm
  ===================================================================
  RCS file: /home/cvs/modperl-docs/lib/DocSet/RunTime.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- RunTime.pm	22 Mar 2002 02:01:51 -0000	1.2
  +++ RunTime.pm	22 Mar 2002 07:00:30 -0000	1.3
  @@ -260,6 +260,7 @@
   
   =item * find_src_doc($resource_rel_path);
   
  +returns C<undef> if nothing was found.
   
   =back
   
  
  
  
  1.5       +2 -2      modperl-docs/lib/DocSet/Util.pm
  
  Index: Util.pm
  ===================================================================
  RCS file: /home/cvs/modperl-docs/lib/DocSet/Util.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- Util.pm	22 Mar 2002 02:01:51 -0000	1.4
  +++ Util.pm	22 Mar 2002 07:00:30 -0000	1.5
  @@ -11,6 +11,7 @@
   use Data::Dumper;
   use Carp;
   use Template;
  +use File::Spec::Functions;
   
   require DocSet::RunTime; # interdependency with DocSet::Util
   
  @@ -265,8 +266,7 @@
           # perl 5.005_03 on FreeBSD doesn't set the dir it chdir'ed to
           # need to move this to compat level?
           require Cwd;
  -        my $cwd;
  -        File::Find::find(sub {$cwd = Cwd::cwd(); push @files, catfile $cwd, $_}, $_[0]);
  +        File::Find::find(sub {push @files, catfile($cwdCwd::cwd(), $_)}, $_[0]);
       }
   
       return \@files;
  
  
  

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