From 363d2ccc78b3b09e00f4342afab158d3c575af77 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Elan=20Ruusam=C3=A4e?= <glen@delfi.ee>
Date: Sat, 12 Jan 2013 12:28:16 +0200
Subject: [PATCH] show error why output log append failed

---
 teeboth | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/teeboth b/teeboth
index caf4620..d598352 100755
--- a/teeboth
+++ b/teeboth
@@ -11,7 +11,7 @@ use IO::Select;
 my $out = shift @ARGV;
 die unless @ARGV;
 
-open my $fout, ">>", $out or die if $out;
+open my $fout, ">>", $out or die "Can't write to $out: $!" if $out;
 
 my $select = IO::Select->new();
 my $alive = 1;
-- 
2.44.0