trs at bestpractical
Aug 7, 2013, 10:43 AM
Post #1 of 1
(14 views)
Permalink
|
|
rt branch, 4.0/link-readme-in-docs, created. rt-4.0.17-70-gfc961e7
|
|
The branch, 4.0/link-readme-in-docs has been created
at fc961e7117aaaf0878ddd260c9b3e854354549d1 (commit)
- Log -----------------------------------------------------------------
commit 58b7e4f213a5a01db416b8b918c575ec4a7071d6
Author: Thomas Sibley <trs [at] bestpractical>
Date: Tue Aug 6 12:24:43 2013 -0700
Link F<README> to the specially-processed README page
diff --git a/lib/RT/Pod/HTML.pm b/lib/RT/Pod/HTML.pm
index 4cde8d6..540c1f1 100644
--- a/lib/RT/Pod/HTML.pm
+++ b/lib/RT/Pod/HTML.pm
@@ -141,6 +141,10 @@ sub resolve_local_link {
$name = "$1_Config";
$local = "$1_Config";
}
+ elsif ($name eq 'README') {
+ # We process README separately in devel/tools/rt-static-docs
+ $local = $name;
+ }
# These matches handle links that look like filenames, such as those we
# parse out of F<> tags.
elsif ( $name =~ m{^(?:lib/)(RT/[\w/]+?)\.pm$}
commit fc961e7117aaaf0878ddd260c9b3e854354549d1
Author: Thomas Sibley <trs [at] bestpractical>
Date: Tue Aug 6 14:08:05 2013 -0700
Use the TOC data to determine what we found during this batch
… instead of what the search subclass (RT::Pod::Search) found.
This ensures that ->found() returns true for the README and any
(old-style) UPGRADING-* files which are manually processed in
rt-static-docs itself but still recorded in the TOC.
diff --git a/lib/RT/Pod/HTMLBatch.pm b/lib/RT/Pod/HTMLBatch.pm
index 1c63dcb..94004f1 100644
--- a/lib/RT/Pod/HTMLBatch.pm
+++ b/lib/RT/Pod/HTMLBatch.pm
@@ -57,8 +57,6 @@ use List::MoreUtils qw/all/;
use RT::Pod::Search;
use RT::Pod::HTML;
-my $MOD2PATH;
-
sub new {
my $self = shift->SUPER::new(@_);
$self->verbose(0);
@@ -178,15 +176,9 @@ sub esc {
Pod::Simple::HTMLBatch::esc(@_);
}
-sub find_all_pods {
- my $self = shift;
- $MOD2PATH = $self->SUPER::find_all_pods(@_);
- return $MOD2PATH;
-}
-
sub found {
my ($self, $module) = @_;
- return(exists $MOD2PATH->{$module} and defined $MOD2PATH->{$module});
+ return grep { $_->[0] eq $module } @{$self->_contents};
}
1;
-----------------------------------------------------------------------
|
