diff options
author | Chris Wilson <chris+github@qwirx.com> | 2009-03-24 15:20:24 +0000 |
---|---|---|
committer | Chris Wilson <chris+github@qwirx.com> | 2009-03-24 15:20:24 +0000 |
commit | c5af7ffbde50a9182ba6a631cad1e7c375c769a9 (patch) | |
tree | eaa99fa194ff7ffd82dc38e97c1f601fbdb5dc00 /test/httpserver/testfiles | |
parent | aaa2168dc2e4ae3eceeaf0684081155cac664ee4 (diff) |
Debug logging of reason for request failure.
Diffstat (limited to 'test/httpserver/testfiles')
-rwxr-xr-x | test/httpserver/testfiles/testrequests.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/httpserver/testfiles/testrequests.pl b/test/httpserver/testfiles/testrequests.pl index 1a8118b1..85380ee0 100755 --- a/test/httpserver/testfiles/testrequests.pl +++ b/test/httpserver/testfiles/testrequests.pl @@ -9,7 +9,7 @@ my $ua = LWP::UserAgent->new(env_proxy => 0, keep_alive => 1, timeout => 30); print "GET request...\n"; my $response1 = $ua->get("$url_base/test-one/34/341s/234?p1=vOne&p2=vTwo"); -exit 1 unless $response1->is_success(); +die $response1->content unless $response1->is_success(); my $content = $response1->content(); |