Perl Warnungen unter Perl 5.22.1

Begonnen von franky08, 22 Mai 2016, 09:28:31

Vorheriges Thema - Nächstes Thema

franky08

Da gestern Abend meine DB den Geist aufgegeben hat, bin ich auch ein Ubuntu System umgezogen, hatte ich in weiser Vorraussicht schon eingerichtet. Auf dem Ubuntu System läuft Perl in der Version 5.22.1. Das führt zu massiven Meldungen im Log, unter Wheezy hatte ich diese Meldungen definitiv nicht.

2016.05.22 09:23:33 1: PERL WARNING: Smartmatch is experimental at (eval 38845) line 1.
2016.05.22 09:23:33 3: eval: my $SELF='Klima_Schalter_ny';my $EVENT='battery: ok';my $NAME='TH_Sensor_WZ';my $EVTPART0='battery:';my $TYPE='CUL_HM';my $EVTPART1='ok';{if ((ReadingsVal("TH_Sensor_WZ","temperature",99)>25) && ($month ~~ [4..8]) && ($hour ~~ [6..16])) {
    fhem("attr Schalter_Klima_an disable 0; attr Klima_Schalter_an2 disable 0")
}
else {
    fhem("attr Schalter_Klima_an disable 1; attr Klima_Schalter_an2 disable 1")
}


Smartmatch is experimental, wie könnte ich das abstellen?

Gefunden habe ich das:
ZitatNutzung von no warnings 'experimental::smartmatch'; => funktioniert allerdings nur ab Perl 5.18

VG
Frank
Debian Wheezy auf ZBOX nano/ Debian Bullseye auf 2.ter ZBOX nano F2F an 2x RaspiB
22Zoll ViewSonic als Infodislay (WVC)
3xHMLAN mit vccu ,fhem5.8, CCU2,
ECMD an AVR-NET-IO mit DAC u. ADC an Junkers Stetigregelung, Siemens LOGO!8, JeeLink uvm...

rudolfkoenig

ZitatSmartmatch is experimental, wie könnte ich das abstellen?
Z.Bsp. indem man kein smartmatch verwendet.
Also $month ~~ [4..8] nach ($month>=4 && $month <=8) umbauen.

dev0

Zitat von: franky08 am 22 Mai 2016, 09:28:31
funktioniert allerdings nur ab Perl 5.18
Da 5.22.1 > 5.18 ist sollte es doch funktionieren. Oder übersehe ich gerade etwas?

Damit sich aber Perl Versionen kleiner als 5.18 nicht über das "no warnungs smartmatch" beschweren, kannst Du auch:
no if $] >= 5.017011, warnings => 'experimental::smartmatch';


franky08

Nein, du hast nichts übersehen, ich habe nur das komplette Zitat gepostet  ;)

VG
Frank
Debian Wheezy auf ZBOX nano/ Debian Bullseye auf 2.ter ZBOX nano F2F an 2x RaspiB
22Zoll ViewSonic als Infodislay (WVC)
3xHMLAN mit vccu ,fhem5.8, CCU2,
ECMD an AVR-NET-IO mit DAC u. ADC an Junkers Stetigregelung, Siemens LOGO!8, JeeLink uvm...

CoolTux

Das Zitat stammt glaube von mir und dürfte ohne Probleme funktionieren. Ich hatte nur ne Meldung wenn Perlversion kleiner wie 5.18 war.
Du musst nicht wissen wie es geht! Du musst nur wissen wo es steht, wie es geht.
Support me to buy new test hardware for development: https://www.paypal.com/paypalme/MOldenburg
My FHEM Git: https://git.cooltux.net/FHEM/
Das TuxNet Wiki:
https://www.cooltux.net

franky08

Debian Wheezy auf ZBOX nano/ Debian Bullseye auf 2.ter ZBOX nano F2F an 2x RaspiB
22Zoll ViewSonic als Infodislay (WVC)
3xHMLAN mit vccu ,fhem5.8, CCU2,
ECMD an AVR-NET-IO mit DAC u. ADC an Junkers Stetigregelung, Siemens LOGO!8, JeeLink uvm...

CoolTux

Ach so. Ok. Hatte das selbe Problem nämlich beim UWZ Modul.


Grüße
Du musst nicht wissen wie es geht! Du musst nur wissen wo es steht, wie es geht.
Support me to buy new test hardware for development: https://www.paypal.com/paypalme/MOldenburg
My FHEM Git: https://git.cooltux.net/FHEM/
Das TuxNet Wiki:
https://www.cooltux.net