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

1 files changed, 6 insertions, 1 deletions

diff --git a/CGI.pl b/CGI.pl
index f7cf52291..8925afd67 100644
--- 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;