Fixed a typo that was causing Perl to abort before printing the HTML

footer when a certain database inconsistency was detected.

diff --git a/CGI.pl b/CGI.pl
index e70da5d4dad59be223fc1b0f9d8c5e3a85402da7..a0f667af3b8c223ec63252d7526d408e8fd92849 100644 (file)
--- a/CGI.pl
+++ b/CGI.pl
@@ -456,7 +456,7 @@ sub make_options {
         }
         print "<pre>src = " . value_quote(join(' ', @$src)) . "\n";
         print "default = " . value_quote($default) . "</pre>";
-        Putfooter();
+        PutFooter();
 #        confess "Gulp.";
         exit 0;