From: Quentin Smith <quentin@mit.edu>
Date: Wed, 29 Dec 2010 17:39:44 +0000 (-0500)
Subject: Pesky Perl output buffering
X-Git-Url: http://xvm.mit.edu/gitweb/invirt/scripts/munin.git/commitdiff_plain/4c324bfb6be6d25e00cac859278f21729ca8e8b6?ds=inline

Pesky Perl output buffering
---

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 @_;