From d90be5408eb69bb04fd65bb1fad5deadbe8eaa0c Mon Sep 17 00:00:00 2001
From: herrmannj <herrmannj@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 22 Mar 2020 23:13:18 +0000
Subject: [PATCH] 98_JsonMod.pm: fix unknown warning category for perl < 5.22

git-svn-id: https://svn.fhem.de/fhem/trunk@21485 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_JsonMod.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/98_JsonMod.pm b/fhem/FHEM/98_JsonMod.pm
index 032099538..2421ef891 100644
--- a/fhem/FHEM/98_JsonMod.pm
+++ b/fhem/FHEM/98_JsonMod.pm
@@ -60,6 +60,9 @@ sub JsonMod_Initialize {
 	#$hash->{'NotifyOrderPrefix'}	= "50-";
 	$hash->{'AttrList'}				= join(' ', @attrList)." $readingFnAttributes ";
 
+	print "version1 $] \n" if ($] >= 5.22);
+	print "version2 $] \n" if ($] >= 5.28);
+
 	return undef;
 };
 
@@ -271,7 +274,7 @@ sub JsonMod_DoReadings {
 	};
 	
 	my sub jsonPathf {
-		no warnings qw( redundant missing );
+		eval 'no warnings qw( redundant missing )' if ($] >= 5.22);
 		my ($jsonPathExpression, $format) = @_;
 		$format //= '%s';
 		my $value = $path->get($jsonPathExpression)->getResultValue();
@@ -542,7 +545,7 @@ sub JsonMod_ApiResponse {
 sub JsonMod_Logger {
 	my ($hash, $verbose, $message, @args) = @_;
 	my $name = $hash->{'NAME'};
-	no warnings qw( redundant missing );
+	eval 'no warnings qw( redundant missing )' if ($] >= 5.22);
 	Log3 ($name, $verbose, sprintf('[%s] '.$message, $name, @args));
 	return;
 };