From 0eb005c4912494eda1fd348bce8fd78800373349 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 21 Jan 2014 23:41:26 +0100
Subject: do warn on first screenshot (mga#11176)

first screenshot already exists by this time...
---
 perl-install/install/NEWS   | 2 ++
 perl-install/install/any.pm | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 293cff024..1db139ec7 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,5 +1,7 @@
 - debug image:
   o add a warning about QWERTY keyboard
+- help dialogs:
+  o do warn on first screenshot (mga#11176)
 
 Version 16.26.3 - 21 January 2014
 
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 4ea10da58..63cefc848 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -1393,7 +1393,7 @@ sub take_screenshot {
     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";
+    $warned ||= -e "$dir/2.png";
 
     if (!$warned && !$nowarn) {
 	$warned = 1;
-- 
cgit v1.2.1