From 587952368801b484779459bbcf810069c87626d1 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 3 Sep 2015 21:06:46 +0200
Subject: help perl_checker

---
 urpm/download.pm | 2 +-
 urpm/install.pm  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/urpm/download.pm b/urpm/download.pm
index c21caeca..25f43fdb 100644
--- a/urpm/download.pm
+++ b/urpm/download.pm
@@ -815,7 +815,7 @@ END {
 
 #- get the width of the terminal
 my $wchar = 79;
-if (-t STDOUT) {
+if (-t *STDOUT) {
   eval {
     require Term::ReadKey;
     ($wchar) = Term::ReadKey::GetTerminalSize();
diff --git a/urpm/install.pm b/urpm/install.pm
index d4b83706..ac68c9eb 100644
--- a/urpm/install.pm
+++ b/urpm/install.pm
@@ -21,7 +21,7 @@ urpm::install - Package installation transaction routines for urpmi
 
 # size of the installation progress bar
 my $progress_size = 45;
-if (-t STDOUT) {
+if (-t *STDOUT) {
   eval {
     require Term::ReadKey;
     ($progress_size) = Term::ReadKey::GetTerminalSize();
-- 
cgit v1.2.1