File mod_perl-t_content_length-r412063.patch of Package apache2-mod_perl

Overview Repositories Revisions Requests Users Attributes Meta

File mod_perl-t_content_length-r412063.patch of Package apache2-mod_perl (Revision 7258d2e7a83b1d57ce4d84cede3aa658)

Currently displaying revision 7258d2e7a83b1d57ce4d84cede3aa658 , Show latest

diff -uNr mod_perl-2.0.2.orig/t/apache/content_length_header.t mod_perl-2.0.2/t/apache/content_length_header.t
--- mod_perl-2.0.2.orig/t/apache/content_length_header.t	2005-10-21 02:04:31.000000000 +0200
+++ mod_perl-2.0.2/t/apache/content_length_header.t	2006-07-04 12:32:00.000000000 +0200
@@ -45,7 +45,7 @@
 
         my $cl      = 0;
         my $head_cl = undef;
-        
+
         ok t_cmp $res->code, 200, "$method $uri code";
         ok t_cmp ($res->header('Content-Length'),
                   $method eq 'GET' ? $cl : $head_cl,
@@ -65,8 +65,26 @@
         my $res = $method->($uri);
 
         my $cl      = 0;
-        my $head_cl = undef;
-           
+        my $head_cl;
+
+        ## 2.2.1, 2.0.56, 2.0.57 were not released
+        ## but we use the versions the changes went into
+        ## to protect against wierd SVN checkout building.
+        ## XXX: I'm starting to think this test is more
+        ## trouble then its worth.
+        if (have_min_apache_version("2.2.1")) { 
+          $head_cl = 25;
+        }
+        elsif (have_min_apache_version("2.2.0")) {
+          # $head_cl = undef; # avoid warnings
+        }
+        elsif (have_min_apache_version("2.0.56")) { 
+          $head_cl = 25;
+        }
+        else {
+          # $head_cl = undef; # avoid warnings
+        }
+
         ok t_cmp $res->code, 200, "$method $uri code";
         ok t_cmp ($res->header('Content-Length'),
                   $method eq 'GET' ? $cl : $head_cl,

Places

File mod_perl-t_content_length-r412063.patch of Package apache2-mod_perl (Revision 7258d2e7a83b1d57ce4d84cede3aa658)

Places