this won't work with 5.003, so bump up the require to

5.004:

  my $cntopen = () = ($before =~ m|^\s*<[^/].*$|mg);


git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/trunk@101296 13f79535-47bb-0310-9956-ffa450edef68