diff --git a/about.pl b/about.pl index cf2c9d4317..29caa85554 100755 --- a/about.pl +++ b/about.pl @@ -24,6 +24,7 @@ use C4::Context; use CGI; use LWP::Simple; use XML::Simple; +use Config; my $query = new CGI; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( @@ -39,6 +40,10 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( my $kohaVersion = C4::Context::KOHAVERSION; my $osVersion = `uname -a`; +my $perl_path = $^X; +if ($^O ne 'VMS') { + $perl_path .= $Config{_exe} unless $perl_path =~ m/$Config{_exe}$/i; +} my $perlVersion = $]; my $mysqlVersion = `mysql -V`; my $apacheVersion = `httpd -v`; @@ -49,6 +54,7 @@ my $zebraVersion = `zebraidx -V`; $template->param( kohaVersion => $kohaVersion, osVersion => $osVersion, + perlPath => $perl_path, perlVersion => $perlVersion, perlIncPath => [ map { perlinc => $_ }, sort @INC ], mysqlVersion => $mysqlVersion, diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/about.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/about.tmpl index 9eaa559159..f2e37d556d 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/about.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/about.tmpl @@ -34,6 +34,7 @@ Server information Koha version: OS version ('uname -a'): + Perl interpreter: Perl version: Perl @INC: