[backend] BSHTTP::read_data: save some memory

Do not create a copy of the data we read.
openSUSE · May 23, 2024 · 8da03a3 · 8da03a3
1 parent a0ec8f4
commit 8da03a3
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/backend/BSHTTP.pm b/src/backend/BSHTTP.pm
@@ -296,12 +296,11 @@ sub read_data {
 	$cl = $maxl = length($qu);
       }
     }
-    $cl -= $maxl if defined($cl);
-    $ret = substr($qu, 0, $maxl);
+    $cl -= $maxl if defined $cl;
     $req->{'__cl'} = $cl;
-    $req->{'__data'} = substr($qu, $maxl);
+    $req->{'__data'} = substr($qu, $maxl, length($qu) - $maxl, '');
     $req->{'__eof'} = 1 if defined($cl) && $cl == 0;
-    return $ret;
+    return $qu;
   }
 }