FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

98_CustomReadings: fixed „Smartmatch is experimental“ warning

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@10750 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
hcs-svn 2016-02-07 09:19:11 +00:00
parent b9d2b94595
commit c391dcfc94
1 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fhem/FHEM/98_CustomReadings.pm
View File

@ -9,9 +9,9 @@ use strict;
use warnings;
use SetExtensions;
sub
CustomReadings_Initialize($)
{
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
sub CustomReadings_Initialize($) {
my ($hash) = @_;
$hash->{DefFn} = "CustomReadings_Define";
@ -22,8 +22,7 @@ CustomReadings_Initialize($)
}
sub
CustomReadings_Define($$)
{
CustomReadings_Define($$) {
my ($hash, $def) = @_;
my $name = $hash->{NAME};
@ -32,8 +31,7 @@ CustomReadings_Define($$)
return undef;
}
sub CustomReadings_read($)
{
sub CustomReadings_read($) {
my ($hash) = @_;
my $name = $hash->{NAME};
@ -120,9 +118,7 @@ sub CustomReadings_read($)
}
sub
CustomReadings_Undef($$)
{
sub CustomReadings_Undef($$) {
my ($hash, $arg) = @_;
my $name = $hash->{NAME};
@ -131,8 +127,7 @@ CustomReadings_Undef($$)
return undef;
}
sub CustomReadings_GetHTML ($)
{
sub CustomReadings_GetHTML ($) {
my ($name) = @_;
my $hash = $main::defs{$name};
my $result = "";