[packages/rpm-build-tools/teeboth: 3/4] show error why output log append failed

[glen]

commit 363d2ccc78b3b09e00f4342afab158d3c575af77
Author: Elan Ruusamäe <glen at delfi.ee>
Date:   Sat Jan 12 12:28:16 2013 +0200

    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;
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/rpm-build-tools.git/commitdiff/12da9e3d7724a0ef69239325ae50ea859c3f3ae4