From 41e9613e36fb740c0fbe6e605fe7558da2d84862 Mon Sep 17 00:00:00 2001
From: delmar <delmar@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 15 Feb 2021 14:10:07 +0000
Subject: [PATCH] 70_CanOverEthernet: changed indirect object notation (Perl 7
 comp)

git-svn-id: https://svn.fhem.de/fhem/trunk@23747 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED                    | 1 +
 fhem/FHEM/70_CanOverEthernet.pm | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index e944df7f1..23b28d791 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -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.
+ - change:  70_CanOverEthernet: changed indirect object notation (Perl 7 comp)
  - change:  70_ZoneMinder: fixed authentication for 1.34.x, API 2.0
  - feature: 98_weekprofile: custom temperature keywords
  - change:  72_TA_CMI_JSON: introduced module package
diff --git a/fhem/FHEM/70_CanOverEthernet.pm b/fhem/FHEM/70_CanOverEthernet.pm
index 3835a9fca..51200c8f5 100644
--- a/fhem/FHEM/70_CanOverEthernet.pm
+++ b/fhem/FHEM/70_CanOverEthernet.pm
@@ -209,7 +209,7 @@ sub CanOverEthernet_sendDataAnalog {
   my @values = @{$valuesRef};
   my @types = @{$typesRef};
 
-  my $socket = new IO::Socket::INET (
+  my $socket = IO::Socket::INET->new(
     PeerAddr=>$targetIp,
     PeerPort=>5441,
     Proto=>"udp"
@@ -255,7 +255,7 @@ sub CanOverEthernet_sendDataDigital {
   my ( $hash, $targetIp, $targetNode, @values ) = @_;
   my $name = $hash->{NAME};
 
-  my $socket = new IO::Socket::INET (
+  my $socket = IO::Socket::INET->new(
     PeerAddr=>$targetIp,
     PeerPort=>5441,
     Proto=>"udp"