Upgrade to 4.2.8

[usit-rt.git] / lib / RT / Pod / HTMLBatch.pm

diff --git a/lib/RT/Pod/HTMLBatch.pm b/lib/RT/Pod/HTMLBatch.pm
index 1c63dcb2006aa5540da355979f09eddabdc617ab..2545ea91cc634cc04814a43aa5fa9ce0bc1752f0 100644 (file)
--- a/lib/RT/Pod/HTMLBatch.pm
+++ b/lib/RT/Pod/HTMLBatch.pm
@@ -2,7 +2,7 @@
 #
 # COPYRIGHT:
 #
-# This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC
 #                                          <sales@bestpractical.com>
 #
 # (Except where explicitly superseded by other copyright notices)
@@ -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;