From e32d22230c84bff6b05c563d7de1dda83722bec3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 11 Feb 2015 06:52:02 +0100
Subject: adapt to new fb2png

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

(limited to 'perl-install')

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