From 4c324bfb6be6d25e00cac859278f21729ca8e8b6 Mon Sep 17 00:00:00 2001
From: Quentin Smith <quentin@mit.edu>
Date: Wed, 29 Dec 2010 12:39:44 -0500
Subject: [PATCH] Pesky Perl output buffering

---
 web/usage.cgi |    1 +
 1 file changed, 1 insertion(+)

diff --git a/web/usage.cgi b/web/usage.cgi
index 88d7552..5675e09 100755
--- 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};
+  $| = 1;
   print $q->header(-type=>$mime_type);
   $im->Write($format.':-');
   CORE::die @_;
-- 
1.7.9.5