49_SSCamSTRM: fix warnings

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@25074 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2021-10-15 19:17:08 +00:00
parent 14101122fd
commit ebf45df345
3 changed files with 6 additions and 7 deletions

View File

@ -1,5 +1,6 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it.
- bugfix: 49_SSCamSTRM: fix warnings
- bugfix: 10_KNX: multiple fixes & new cmd: blink - see Forum #122582
- feature: 23_LUXTRONIK2: new set parameter opModeHeating
- bugfix: 73_AutoShuttersControl: multiple bugfixes, change version

View File

@ -91,6 +91,7 @@ BEGIN {
# Versions History intern
my %vNotesIntern = (
"2.15.1" => "15.10.2021 fix warnings 'my variable masks earlier' ",
"2.15.0" => "27.09.2021 model lastsnap: add setter snap ",
"2.14.5" => "12.08.2020 avoid loose of adoption after restart ",
"2.14.4" => "03.08.2020 fix check of ARG in RemoveInternalTimer in _setadoptForTimer sub (sometimes no switch back done) ",
@ -356,8 +357,6 @@ sub _setsnap { ## no critic "not used"
my $hash = $paref->{hash};
my $aref = $paref->{aref};
my ($num,$lag) = (1,2);
my $num = @$aref[2] // 1;
my $lag = @$aref[3] // 2;

View File

@ -1,5 +1,5 @@
########################################################################################################################
# $Id: 49_SSCamSTRM.pm 22598 2020-08-14 14:09:14Z DS_Starter $
# $Id: 49_SSCamSTRM.pm 25032 2021-09-29 13:23:58Z DS_Starter $
#########################################################################################################################
# 49_SSCamSTRM.pm
#
@ -91,6 +91,7 @@ BEGIN {
# Versions History intern
my %vNotesIntern = (
"2.15.1" => "15.10.2021 fix warnings 'my variable masks earlier' ",
"2.15.0" => "27.09.2021 model lastsnap: add setter snap ",
"2.14.5" => "12.08.2020 avoid loose of adoption after restart ",
"2.14.4" => "03.08.2020 fix check of ARG in RemoveInternalTimer in _setadoptForTimer sub (sometimes no switch back done) ",
@ -356,8 +357,6 @@ sub _setsnap { ## no critic "not used"
my $hash = $paref->{hash};
my $aref = $paref->{aref};
my ($num,$lag) = (1,2);
my $num = @$aref[2] // 1;
my $lag = @$aref[3] // 2;
@ -783,12 +782,12 @@ sub setVersionInfo {
if($modules{$type}{META}{x_prereqs_src} && !$hash->{HELPER}{MODMETAABSENT}) {
# META-Daten sind vorhanden
$modules{$type}{META}{version} = "v".$v; # Version aus META.json überschreiben, Anzeige mit {Dumper $modules{SSCamSTRM}{META}}
if($modules{$type}{META}{x_version}) { # {x_version} ( nur gesetzt wenn $Id: 49_SSCamSTRM.pm 22598 2020-08-14 14:09:14Z DS_Starter $ im Kopf komplett! vorhanden )
if($modules{$type}{META}{x_version}) { # {x_version} ( nur gesetzt wenn $Id: 49_SSCamSTRM.pm 25032 2021-09-29 13:23:58Z DS_Starter $ im Kopf komplett! vorhanden )
$modules{$type}{META}{x_version} =~ s/1\.1\.1/$v/gx;
} else {
$modules{$type}{META}{x_version} = $v;
}
return $@ unless (FHEM::Meta::SetInternals($hash)); # FVERSION wird gesetzt ( nur gesetzt wenn $Id: 49_SSCamSTRM.pm 22598 2020-08-14 14:09:14Z DS_Starter $ im Kopf komplett! vorhanden )
return $@ unless (FHEM::Meta::SetInternals($hash)); # FVERSION wird gesetzt ( nur gesetzt wenn $Id: 49_SSCamSTRM.pm 25032 2021-09-29 13:23:58Z DS_Starter $ im Kopf komplett! vorhanden )
if(__PACKAGE__ eq "FHEM::$type" || __PACKAGE__ eq $type) {
# es wird mit Packages gearbeitet -> Perl übliche Modulversion setzen
# mit {<Modul>->VERSION()} im FHEMWEB kann Modulversion abgefragt werden