From 5f611555e3dbfc0ff5296d80e0a987cc431625dd Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <fhemdevelopment@cooltux.net>
Date: Sun, 5 Feb 2023 09:20:20 +0100
Subject: [PATCH] fix: failed then Readonly is missing

---
 controls_Weather.txt     |  2 +-
 lib/FHEM/Core/Weather.pm | 15 +++++++++++----
 2 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/controls_Weather.txt b/controls_Weather.txt
index 44b9f32..6eed585 100644
--- a/controls_Weather.txt
+++ b/controls_Weather.txt
@@ -1,5 +1,5 @@
 UPD 2023-01-29_16:14:48 25809 FHEM/59_Weather.pm
-UPD 2023-02-02_22:56:41 33947 lib/FHEM/Core/Weather.pm
+UPD 2023-02-05_09:19:03 34095 lib/FHEM/Core/Weather.pm
 UPD 2023-01-29_16:14:48 50106 lib/FHEM/APIs/Weather/DarkSkyAPI.pm
 UPD 2023-01-29_16:14:48 33422 lib/FHEM/APIs/Weather/OpenWeatherMapAPI.pm
 UPD 2023-01-29_16:14:48 36101 lib/FHEM/APIs/Weather/wundergroundAPI.pm
diff --git a/lib/FHEM/Core/Weather.pm b/lib/FHEM/Core/Weather.pm
index d481929..f1454e7 100644
--- a/lib/FHEM/Core/Weather.pm
+++ b/lib/FHEM/Core/Weather.pm
@@ -32,9 +32,18 @@ package FHEM::Core::Weather;
 use strict;
 use warnings;
 
-use Time::HiRes  qw(gettimeofday);
+my $missingModul = 'apt install';
+
+eval { use Time::HiRes qw /gettimeofday/; 1 }
+  or $missingModul .= "libtime-hires-perl ";
+
+eval { use Readonly; 1 }
+  or $missingModul .= "libreadonly-perl ";
+
+#use Time::HiRes  qw(gettimeofday);
 use experimental qw /switch/;
-use Readonly;
+
+#use Readonly;
 
 use FHEM::Meta;
 
@@ -318,8 +327,6 @@ sub _ReturnWithError {
 }
 
 sub DeleteForecastreadings {
-    return 0 unless ( __PACKAGE__ eq caller(0) );
-
     my $hash = shift;
 
     my $name                    = $hash->{NAME};