RT# 81961 Pod2Html remove hard-coded perl src dirs

diff --git a/FS/FS/Misc/Pod2Html.pm b/FS/FS/Misc/Pod2Html.pm
index 1dfca04..47ac16f 100644 (file)
--- a/FS/FS/Misc/Pod2Html.pm
+++ b/FS/FS/Misc/Pod2Html.pm
@@ -65,12 +65,11 @@ Generates Freeside-themed HTML docuemtnation from installed perl modules
 sub fs_pod2html {
   fs_pod2html_from_dirs(
     shift,
-    '/usr/local/share/perl/5.24.1',
+    grep( {-d} glob('/usr/local/share/perl/*')),
     '/usr/local/bin',
     $include_system_perl_modules ? (
       '/usr/share/perl5',
-      '/usr/share/perl/5.24',
-      '/usr/share/perl/5.24.1',
+      grep {-d} glob('/usr/share/perl/*'),
     ) : (),
   );
 }
@@ -92,12 +91,9 @@ sub fs_pod2html_from_src {
     'bin',
     'FS',
     'fs_selfservice/FS-SelfService',
-    # '/usr/local/share/perl/5.24.1',
-    # '/usr/local/bin',
     $include_system_perl_modules ? (
       '/usr/share/perl5',
-      '/usr/share/perl/5.24',
-      '/usr/share/perl/5.24.1',
+      grep {-d} glob('/usr/share/perl/*'),
     ) : (),
   );