github_mirrors/ModSecurity
3
0
Fork 1
mirror of https://github.com/owasp-modsecurity/ModSecurity.git synced 2025-09-29 19:24:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

Tweak some regression tests.

Browse Source
This commit is contained in:
brectanus
2008-06-05 16:44:18 +00:00
parent e1e200c005
commit 493e71a9ec
2 changed files with 15 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
apache2/t/run-regression-tests.pl.in
View File

@@ -351,6 +351,7 @@ sub do_raw_request {
# Join togeather the request
my $r = join("", @_);
dbg($r);
# Write to socket
print $sock "$r";
@@ -374,7 +375,11 @@ sub do_request {
if (ref $r eq "HTTP::Request") {
# dbg("REQUEST: ", $r);
return $UA->request($r);
my $resp = $UA->request($r);
if ($opt{d}) {
dbg($resp->request()->as_string());
}
return $resp
}
else {
# dbg("REQUEST:\n", $r);
@@ -456,7 +461,7 @@ sub dbg {
my $out = join "", map {
(ref $_ ne "" ? Dumper($_) : $_)
} @_;
$out =~ s/^/DBG: /m;
$out =~ s/^/DBG: /mg;
print STDOUT "$out\n";
}