diff options
Diffstat (limited to 'git2cl')
-rwxr-xr-x | git2cl | 10 |
1 files changed, 1 insertions, 9 deletions
@@ -92,13 +92,6 @@ my %month = ( my $fh = new FileHandle; -sub key_ready -{ - my ($rin, $nfd); - vec($rin, fileno(STDIN), 1) = 1; - return $nfd = select($rin, undef, undef, 0); -} - sub strptime { my $str = shift; return undef if not defined $str; @@ -323,9 +316,8 @@ $state = 0; # if reading from STDIN, we assume that we are # getting git log as input -if (key_ready()) +if (-f STDIN or -l STDIN or -p STDIN) { - #my $dummyfh; # don't care about writing #($fh,$dummyfh) = FileHandle::pipe; $fh->fdopen(*STDIN, 'r'); |