diff options
| author | Struan Donald <struan@exo.org.uk> | 2011-06-06 12:32:43 +0100 |
|---|---|---|
| committer | Struan Donald <struan@exo.org.uk> | 2011-06-06 12:32:43 +0100 |
| commit | 75fe00034fc5be24e2222cf116656fc350b98e67 (patch) | |
| tree | df8d29092083025a818688d496e26913ed2a3a7f /web/test.cgi | |
| parent | c297e65b2fb0cf61c5d6a3b2caa477c473fccd96 (diff) | |
| parent | 1aa62d33e4e038e9edf994084603086eff26b6ac (diff) | |
Merge branch 'migrate_to_catalyst' of ssh://git.mysociety.org/data/git/public/fixmystreet into migrate_to_catalyst
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); - |