diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2011-06-10 14:56:00 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2011-06-10 14:56:00 +0100 |
| commit | 391ca1c469d93bb2c4798cc15e56fc495b5e80dd (patch) | |
| tree | 6bc90fae589de824095e668fbf510ef259935729 /web/test.cgi | |
| parent | 7c96f8ec61d6eddc211f3f0e71cdb276c6a5f773 (diff) | |
| parent | 860383f0de3287b0666d64a3ffff3db3a0f087ae (diff) | |
Merge branch 'migrate_to_catalyst' into reportemptyhomes
Diffstat (limited to 'web/test.cgi')
| -rwxr-xr-x | web/test.cgi | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/web/test.cgi b/web/test.cgi deleted file mode 100755 index c9b36e6b7..000000000 --- a/web/test.cgi +++ /dev/null @@ -1,25 +0,0 @@ -#!/usr/bin/perl -w -I../perllib - -# test.cgi -# Part of test suite to force an error to check error handling works. -# -# Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved. -# Email: matthew@mysociety.org. WWW: http://www.mysociety.org -# -# $Id: test.cgi,v 1.1 2009-07-15 20:51:21 matthew Exp $ - -use strict; -use Standard; - -sub main { - my $q = shift; - - print $q->header(-charset => 'utf-8', -content_type => 'text/plain'); - if ($q->param('error')) { - print 10 / 0; # Cause an error by dividing by zero. - } - print "Success"; -} - -Page::do_fastcgi(\&main); - |