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,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

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"