Add a bit of helpful debugging info when we get a consistancy check problem.

diff --git a/CGI.pl b/CGI.pl
index f7cf522911fda0c4a0dcd706d3de90823fec5384..8925afd670ce2d40ead9b2069ae6d7f1f9be9c23 100644 (file)
--- a/CGI.pl
+++ b/CGI.pl
@@ -451,7 +451,12 @@ sub make_options {
               "Please send mail to " . Param("maintainer") . " with " .
               "details of what you were doing when this message " . 
               "appeared.  Thank you.\n";
-        PutFooter();
+        if (!$src) {
+            $src = ["???null???"];
+        }
+        print "<pre>src = " . value_quote(join(' ', @$src)) . "\n";
+        print "default = " . value_quote($default) . "</pre>";
+        Putfooter();
 #        confess "Gulp.";
         exit 0;