[Rt-commit] rt branch, 4.0/link-readme-in-docs, created. rt-4.0.17-70-gfc961e7

[Thomas Sibley]

The branch, 4.0/link-readme-in-docs has been created
        at  fc961e7117aaaf0878ddd260c9b3e854354549d1 (commit)

- Log -----------------------------------------------------------------
commit 58b7e4f213a5a01db416b8b918c575ec4a7071d6
Author: Thomas Sibley <trs at bestpractical.com>
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.com>
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;

-----------------------------------------------------------------------