Flush output after each line

Change-Id: Id96ab8d9938725d780c475f2f892660f04448df1

Flush output after each line
Change-Id: Id96ab8d9938725d780c475f2f892660f04448df1
2a6be902 · Tor Lillqvist · fe2711dc · 2a6be902
Kaydet (Commit) 2a6be902 authored Eki 21, 2014 tarafından Tor Lillqvist
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

lolcat bin/lolcat +2 -0

No files found.
--- a/bin/lolcat
+++ b/bin/lolcat
 #!/usr/bin/perl -w

 use strict;
+use IO::Handle;

 die "Usage: $0 identifier\n" .
    "(identifier is for example org.libreoffice)" unless $#ARGV == 0;
@@ -15,5 +16,6 @@ while (<LOGCAT>) {
    $pid = $1;
  } elsif (m!^[EIW]/[^(]+\( *$pid\)!) {
    print $_;
+    STDOUT->flush();
  }
 }