From: Mitch Jackson <mitch@freeside.biz>
Date: Wed, 27 Feb 2019 01:18:47 +0000 (-0500)
Subject: RT# 81961 Pod2Html remove hard-coded perl src dirs
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=578d69b4ae8a8dbb49509163020197c4e7811e32

RT# 81961 Pod2Html remove hard-coded perl src dirs
---

diff --git a/FS/FS/Misc/Pod2Html.pm b/FS/FS/Misc/Pod2Html.pm
index 1dfca048c..47ac16f07 100644
--- 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/*'),
     ) : (),
   );