11_OWDevice: suppress warnings for smartmatch

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@11015 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
borisneubert
2016-03-06 18:09:03 +00:00
parent 274aa8f8f9
commit 451f9c30d1

View File

@@ -27,9 +27,12 @@ package main;
use strict; use strict;
use warnings; use warnings;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
use vars qw(%owdevice); use vars qw(%owdevice);
# 1-Wire devices (order by family code) # 1-Wire devices (order by family code)
# http://owfs.sourceforge.net/family.html # http://owfs.sourceforge.net/family.html