Bug 20428: (QA follow-up) Remove redundant directory level

[koha.git] / about.pl

diff --git a/about.pl b/about.pl
index b3cad66..308737d 100755 (executable)
--- a/about.pl
+++ b/about.pl
@@ -24,6 +24,7 @@ use Modern::Perl;
 
 use CGI qw ( -utf8 );
 use DateTime::TimeZone;
+use File::Spec;
 use List::MoreUtils qw/ any /;
 use LWP::Simple;
 use Module::Load::Conditional qw(can_load);
@@ -260,6 +261,13 @@ if ( ! defined C4::Context->config('upload_path') ) {
     }
 }
 
+if ( ! defined C4::Context->config('tmp_path') ) {
+    push @xml_config_warnings, {
+        error             => 'tmp_path_entry_missing',
+        effective_tmp_dir => File::Spec->tmpdir
+    }
+}
+
 # Test QueryParser configuration sanity
 if ( C4::Context->preference( 'UseQueryParser' ) ) {
     # Get the QueryParser configuration file name