Adding debian version 2.4.59-1~deb10u1.debian/2.4.59-1_deb10u1debian

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

1 files changed, 4 insertions, 13 deletions

diff --git a/debian/perl-framework/t/modules/cgi.t b/debian/perl-framework/t/modules/cgi.t
index d191d8d..9b6edc2 100644
--- a/debian/perl-framework/t/modules/cgi.t
+++ b/debian/perl-framework/t/modules/cgi.t
@@ -9,10 +9,7 @@ use File::stat;
 my $have_apache_2 = have_apache 2;
 my $have_apache_2050 = have_min_apache_version "2.0.50";
 
-my $script_log_length = 8192;
-if (have_module 'mod_cgi') {
-    $script_log_length = 40960;
-}
+my $script_log_length = 40960;
 
 ## mod_cgi test
 ##
@@ -21,12 +18,7 @@ if (have_module 'mod_cgi') {
 ## AddHandler cgi-script .sh
 ## AddHandler cgi-script .pl
 ## ScriptLog logs/mod_cgi.log
-## <IfModule mod_cgi.c>
-##     ScriptLogLength 40960
-## </IfModule mod_cgi>
-## <IfModule !mod_cgi.c>
-##     ScriptLogLength 8192
-## </IfModule mod_cgi>
+## ScriptLogLength 40960
 ## ScriptLogBuffer 256
 ## <Directory @SERVERROOT@/htdocs/modules/cgi>
 ## Options +ExecCGI
@@ -191,9 +183,8 @@ foreach my $length (@post_content) {
     $actual = POST_RC "$path/bogus-perl.pl", content => "$content"x$length;
 
     print "# posted content (length $length) to bogus-perl.pl\n";
-    print "# got return code of: $actual, expecting: $expected\n";
     ## should get rc 500
-    ok ($actual eq $expected);
+    ok t_cmp($actual, $expected, "POST to $path/bogus-perl.pl [content: $content x $length]");
 
     if (-e $cgi_log) {
         ## cgi log should be bigger.
@@ -206,7 +197,7 @@ foreach my $length (@post_content) {
             ## should not fall in here at this point,
             ## but just in case...
             print "# verifying log did not increase in size...\n";
-            ok ($$stat[7] eq $log_size);
+            ok t_cmp($$stat[7], $log_size, "log size should not have increased");
         }
         $log_size = $$stat[7];