Pesky Perl output buffering

diff --git a/web/usage.cgi b/web/usage.cgi
index 88d7552..5675e09 100755 (executable)
--- a/web/usage.cgi
+++ b/web/usage.cgi
@@ -84,6 +84,7 @@ sub die(@) {
   $im->Read('label:'.join('', @_));
   $format = 'png' unless exists($formats{$format});
   $mime_type = $formats{$format};
   $im->Read('label:'.join('', @_));
   $format = 'png' unless exists($formats{$format});
   $mime_type = $formats{$format};

+  $| = 1;

   print $q->header(-type=>$mime_type);
   $im->Write($format.':-');
   CORE::die @_;
   print $q->header(-type=>$mime_type);
   $im->Write($format.':-');
   CORE::die @_;