diff options
| -rw-r--r-- | gprofng/gp-display-html/gp-display-html.in | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gprofng/gp-display-html/gp-display-html.in b/gprofng/gp-display-html/gp-display-html.in index 54a87d7a3c..9b207b99aa 100644 --- a/gprofng/gp-display-html/gp-display-html.in +++ b/gprofng/gp-display-html/gp-display-html.in @@ -8852,6 +8852,8 @@ sub handle_module_availability { my $subr_name = get_my_name (); + gp_message ("verbose", $subr_name, "Handling module requirements"); + #------------------------------------------------------------------------------ # This is clunky at best, but there is a chicken egg problem here. For the # man page to be generated, the --help and --version options need to work, @@ -8868,7 +8870,9 @@ sub handle_module_availability "List::Util", "Cwd", "File::Basename", + "File::stat", "POSIX", + "bigint", "bignum"); my @missing_modules = (); @@ -8895,12 +8899,17 @@ sub handle_module_availability { $cmd = $m . "->import ( qw (min max))"; } + elsif ($m eq "bigint") + { + $cmd = $m . "->import ( qw (hex))"; + } else { $cmd = $m . "->import"; } $cmd .= ";"; $result = eval ("$cmd"); + gp_message ("debugM", $subr_name, "cmd = $cmd"); } else { |