quote - sane environment

git-svn-id: https://jules.scsys.co.uk/repository/shadowcat-code/scratchpad/matthewt/sig/lib@2346 8a6f57db-631f-0410-b083-dc7c4259d016

diff --git a/quotefile b/quotefile
index 8d3b877..8b1e60f 100644 (file)
--- a/quotefile
+++ b/quotefile
@@ -8095,3 +8095,6 @@ if you experience an election lasting more than 4 hours. ***
 %
 < Obormot> ... what the heck is a .isz file
 < Tene> gzipped icelandic text
+%
+    # Make sure we are in a sane environment.
+    $ENV{MOD_PERL} or die 'not running under mod_perl!';