summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--CGI.pl7
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;