summaryrefslogtreecommitdiffstats
path: root/perl-install/install/any.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install/any.pm')
-rw-r--r--perl-install/install/any.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 9bad240c2..63b1d0316 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -1392,6 +1392,9 @@ sub take_screenshot {
$nb++ while -e "$dir/$nb.png";
system('fb2png', '/dev/fb0', "$dir/$nb.png", '0');
+ # help doesn't remember warning has been shown (one shot processes):
+ $warned ||= -e "$dir/1.png";
+
if (!$warned && !$nowarn) {
$warned = 1;
$in->ask_warn('', N("Screenshots will be available after install in %s", "/root/DrakX-screenshots"));