From ae6f78d998e8000285f5d463aa4d0c5a6b54fbeb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 21 Jan 2014 07:08:46 +0100
Subject: ensure fb2png ends in logs

---
 perl-install/install/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/install')

diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 63b1d0316..4ea10da58 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -1390,7 +1390,7 @@ sub take_screenshot {
     }
     my $nb = 1;
     $nb++ while -e "$dir/$nb.png";
-    system('fb2png', '/dev/fb0', "$dir/$nb.png", '0');
+    run_program::run('fb2png', '/dev/fb0', "$dir/$nb.png", '0');
 
     # help doesn't remember warning has been shown (one shot processes):
     $warned ||= -e "$dir/1.png";
-- 
cgit v1.2.1