Adding debian version 2.4.38-3+deb10u10.debian/2.4.38-3+deb10u10

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 7 insertions, 2 deletions

diff --git a/debian/perl-framework/t/modules/buffer.t b/debian/perl-framework/t/modules/buffer.t
index 84cc5bc..e508f37 100644
--- a/debian/perl-framework/t/modules/buffer.t
+++ b/debian/perl-framework/t/modules/buffer.t
@@ -24,10 +24,15 @@ foreach my $t (@testcases) {
     
     ## Big query ##
     # 'foo' is 3 bytes, so 'foo' x 1000000 is ~3M, which is way over the default 'BufferSize'
-    $r = POST($t->[0], content => $t->[1] x 1000000);
+    ### FIXME - testing with to x 10000 is confusing LWP's full-duplex
+    ### handling: https://github.com/libwww-perl/libwww-perl/issues/299
+    ### throttled down to a size which seems to work reliably for now
+    my $bigsize = 100000;
+
+    $r = POST($t->[0], content => $t->[1] x $bigsize);
 
     # Checking for return code
     ok t_cmp($r->code, 200, "Checking return code is '200'");
     # Checking for content
-    ok t_cmp($r->content, $t->[1] x 1000000, $r->content . ' equals ' . $t->[1]);
+    ok t_is_equal($r->content, $t->[1] x $bigsize);
 }