--- gary.orig	2000-10-23 15:40:57.000000000 -0700
+++ gary	2003-06-01 14:37:40.000000000 -0700
@@ -139,7 +139,11 @@
 &changes if ($opt_C);
 
 # switch off buffering if in 'glitter' mode
-STDOUT->setvbuf($nothing_here, _IONBF, 0) if ($opt_g);
+# Gentoo Linux patch: use $| to work with perl 5.8.0 also.
+# See http://bugs.gentoo.org/show_bug.cgi?id=14001 for details.
+# Robert Coie <rac@gentoo.org> 2003.05.31
+#STDOUT->setvbuf($nothing_here, _IONBF, 0) if ($opt_g);
+$| = 1 if $opt_g;
 
 # Make sure we clean up when we catch an unexpected signal
 foreach (@sigs) {