From 2c8b88183f6447b41610107b6b125cc0f2e93d48 Mon Sep 17 00:00:00 2001
From: nasseeder1 <nasseeder1@users.noreply.github.com>
Date: Sun, 13 Mar 2022 17:27:08 +0000
Subject: [PATCH] CTZ.pm: publish func reqModFail

git-svn-id: https://svn.fhem.de/fhem/trunk@25827 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/lib/FHEM/Utility/CTZ.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/fhem/lib/FHEM/Utility/CTZ.pm b/fhem/lib/FHEM/Utility/CTZ.pm
index f92a59b15..9e5e933de 100644
--- a/fhem/lib/FHEM/Utility/CTZ.pm
+++ b/fhem/lib/FHEM/Utility/CTZ.pm
@@ -87,7 +87,7 @@ sub convertTimeZone {
   }
   
   my $rmf = reqModFail();
-  return $rmf if($rmf);
+  return "required perl module not installed: ".$rmf if($rmf);
 
   my $name      = $paref->{name}      // $pkg;
   my $dtstring  = $paref->{dtstring}  // q{};
@@ -136,8 +136,9 @@ return $valid;
 sub getTZNames {
   
   my $rmf = reqModFail();
+  
   if($rmf) {
-      $rmf = "ERROR - ".$rmf;
+      $rmf = "ERROR - required perl module not installed: ".$rmf;
       Log (1, "$pkg - $rmf");
       return [($rmf)];
   }
@@ -157,7 +158,7 @@ sub reqModFail {
       push @ma, $abs0 if($abs0);
       push @ma, $abs1 if($abs1);
       
-      my $err = "required perl module not installed: ".join ", ", @ma;
+      my $err = join ", ", @ma;
       
       return $err;
   }