From ceecb246e9c12e704d56fa4b916da88f5cc5a0c7 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Fri, 12 Mar 2021 11:01:49 +0000
Subject: [PATCH] DevIo.pm: tuning websocket encoding/decoding for large
 buffers (Forum #109910)

git-svn-id: https://svn.fhem.de/fhem/trunk@23933 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/01_FHEMWEB.pm | 2 +-
 fhem/FHEM/DevIo.pm      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/01_FHEMWEB.pm b/fhem/FHEM/01_FHEMWEB.pm
index e76226d97..6ad2d839c 100644
--- a/fhem/FHEM/01_FHEMWEB.pm
+++ b/fhem/FHEM/01_FHEMWEB.pm
@@ -405,7 +405,7 @@ FW_Read($$)
       $len = unpack( 'n', substr($hash->{BUF},$i,2) );
       $i += 2;
     } elsif( $len == 127 ) {
-      $len = unpack( 'q', substr($hash->{BUF},$i,8) );
+      $len = unpack( 'Q>', substr($hash->{BUF},$i,8) );
       $i += 8;
     }
 
diff --git a/fhem/FHEM/DevIo.pm b/fhem/FHEM/DevIo.pm
index cd7d82285..497753b5d 100644
--- a/fhem/FHEM/DevIo.pm
+++ b/fhem/FHEM/DevIo.pm
@@ -192,7 +192,7 @@ DevIo_DecodeWS($$)
     $i += 2;
   } elsif( $len == 127 ) {
     return "" if(length($data) < 10);
-    $len = unpack( 'q', substr($hash->{".WSBUF"},$i,8) );
+    $len = unpack( 'Q>', substr($hash->{".WSBUF"},$i,8) );
     $i += 8;
   }