From 2ba36d6f841d9e6fa5249b9323f74a10b05d468b Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Wed, 22 Jan 2003 17:21:52 +0000 Subject: correctly pop when F2 (screenshots) --- perl-install/common.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'perl-install/common.pm') diff --git a/perl-install/common.pm b/perl-install/common.pm index f486660d4..7feadc532 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -165,18 +165,17 @@ sub screenshot_dir__and_move { } sub take_screenshot { - my ($in) = @_; my $dir = screenshot_dir__and_move() . '/DrakX-screenshots'; my $warn; if (!-e $dir) { - mkdir $dir or $in->ask_warn('', N("Can't make screenshots before partitioning")), return; + mkdir $dir or $::o->ask_warn('', N("Can't make screenshots before partitioning")), return; $warn = 1; } my $nb = 1; $nb++ while -e "$dir/$nb.png"; system("fb2png /dev/fb0 $dir/$nb.png 0"); - $in->ask_warn('', N("Screenshots will be available after install in %s", "/root/DrakX-screenshots")) if $warn; + $::o->ask_warn('', N("Screenshots will be available after install in %s", "/root/DrakX-screenshots")) if $warn; } sub join_lines { -- cgit v1.2.1