From 00a38db12c1475aadd4489f50c79cef7aca58140 Mon Sep 17 00:00:00 2001 From: Mitch Jackson Date: Tue, 26 Feb 2019 20:18:47 -0500 Subject: [PATCH] RT# 81961 Pod2Html remove hard-coded perl src dirs --- FS/FS/Misc/Pod2Html.pm | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) 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/*'), ) : (), ); -- 2.11.0