mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

98_JsonMod.pm: fix unknown warning category for perl < 5.22

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@21485 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
herrmannj
2020-03-22 23:13:18 +00:00
parent 7b4df93571
commit d90be5408e
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
fhem/FHEM/98_JsonMod.pm
View File

@@ -60,6 +60,9 @@ sub JsonMod_Initialize {
#$hash->{'NotifyOrderPrefix'} = "50-"; #$hash->{'NotifyOrderPrefix'} = "50-";
$hash->{'AttrList'} = join(' ', @attrList)." $readingFnAttributes "; $hash->{'AttrList'} = join(' ', @attrList)." $readingFnAttributes ";
print "version1 $] \n" if ($] >= 5.22);
print "version2 $] \n" if ($] >= 5.28);
return undef; return undef;
}; };
@@ -271,7 +274,7 @@ sub JsonMod_DoReadings {
}; };
my sub jsonPathf { my sub jsonPathf {
no warnings qw( redundant missing ); eval 'no warnings qw( redundant missing )' if ($] >= 5.22);
my ($jsonPathExpression, $format) = @_; my ($jsonPathExpression, $format) = @_;
$format //= '%s'; $format //= '%s';
my $value = $path->get($jsonPathExpression)->getResultValue(); my $value = $path->get($jsonPathExpression)->getResultValue();
@@ -542,7 +545,7 @@ sub JsonMod_ApiResponse {
sub JsonMod_Logger { sub JsonMod_Logger {
my ($hash, $verbose, $message, @args) = @_; my ($hash, $verbose, $message, @args) = @_;
my $name = $hash->{'NAME'}; 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)); Log3 ($name, $verbose, sprintf('[%s] '.$message, $name, @args));
return; return;
}; };