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

---
 urpm/install.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'urpm/install.pm')

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