From 3c7fca264ec9f85667c9bcaa19e5d9075b8664b8 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 3 Sep 2015 09:43:21 -0400
Subject: fix Term::ReadKey warnings when redirected

---
 NEWS             | 1 +
 urpm/download.pm | 6 ++++--
 urpm/install.pm  | 6 ++++--
 3 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/NEWS b/NEWS
index 92c4aa6b..aca32675 100644
--- a/NEWS
+++ b/NEWS
@@ -2,6 +2,7 @@
   o fix using a proxy without an auth user (mga#11265)
 - library:
   o fix unmarking packages as potential orphans when downgrading (mga#16149)
+  o fix Term::ReadKey warnings when output is redirected
 - testsuite:
   o misc enhancements & cleanups
   o fix tests for ignored faillure for %pre{,un}, %pretrans
diff --git a/urpm/download.pm b/urpm/download.pm
index c6800f73..c21caeca 100644
--- a/urpm/download.pm
+++ b/urpm/download.pm
@@ -815,11 +815,13 @@ END {
 
 #- get the width of the terminal
 my $wchar = 79;
-eval {
+if (-t STDOUT) {
+  eval {
     require Term::ReadKey;
     ($wchar) = Term::ReadKey::GetTerminalSize();
     --$wchar;
-};
+  };
+}
 
 sub progress_text {
     my ($mode, $percent, $total, $eta, $speed) = @_;
diff --git a/urpm/install.pm b/urpm/install.pm
index 08e43236..d4b83706 100644
--- a/urpm/install.pm
+++ b/urpm/install.pm
@@ -21,12 +21,14 @@ urpm::install - Package installation transaction routines for urpmi
 
 # size of the installation progress bar
 my $progress_size = 45;
-eval {
+if (-t STDOUT) {
+  eval {
     require Term::ReadKey;
     ($progress_size) = Term::ReadKey::GetTerminalSize();
     $progress_size -= 35;
     $progress_size < 5 and $progress_size = 5;
-};
+  };
+}
 
 
 sub _hash_intersect_list {
-- 
cgit v1.2.1