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