Bug 1350467 - Add method Bugzilla->preload_features() to be called in mod_perl.pl...

diff --git a/Bugzilla/CPAN.pm b/Bugzilla/CPAN.pm
index f044e45bcf6b8aed727c2bde5d76d8e2bd5941d9..1ffac601cbfc22afd74c1db23dbad7b11c0993ef 100644 (file)
--- a/Bugzilla/CPAN.pm
+++ b/Bugzilla/CPAN.pm
@@ -104,6 +104,16 @@ sub feature {
     return $FEATURE_LOADED{$feature_name} = 1;
 }
 
+sub preload_features {
+    my ($class) = @_;
+    return 0 unless _CAN_HAS_FEATURE;
+    my $meta = $class->cpan_meta;
+
+    foreach my $feature ($meta->features) {
+        $class->feature($feature->identifier);
+    }
+}
+
 1;
 
 __END__
@@ -140,3 +150,6 @@ are installed.
 
 Returns a L<CPAN::Meta> from the contents of MYMETA.json in the bugzilla directory.
 
+=head2 C<preload_features()>
+
+Attempts to load all features.

diff --git a/mod_perl.pl b/mod_perl.pl
index bbca30c2e3074ae307cb8ca6bfd9749e5fd80c02..920032fe7059ca4cc9c8d8c7dce4b3190099b72a 100644 (file)
--- a/mod_perl.pl
+++ b/mod_perl.pl
@@ -93,6 +93,8 @@ $server->add_config([split("\n", $conf)]);
 # Pre-load all extensions
 $Bugzilla::extension_packages = Bugzilla::Extension->load_all();
 
+Bugzilla->preload_features();
+
 # Have ModPerl::RegistryLoader pre-compile all CGI scripts.
 my $rl = new ModPerl::RegistryLoader();
 # If we try to do this in "new" it fails because it looks for a