diff options
| -rwxr-xr-x | perl-install/standalone/draksplash | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash index 0f571f51a..e7923e3e2 100755 --- a/perl-install/standalone/draksplash +++ b/perl-install/standalone/draksplash @@ -443,7 +443,8 @@ sub make_boot_frame() { #$boot_conf_frame{widgets}{button}{annul}->signal_connect(clicked => sub { show_act( \%first ) } ); #- made a preview $boot_conf_frame{widgets}{button}{prev}->signal_connect(clicked => sub { - unless (-f $first{widgets}{label}{file}->get) { + my $w = $first{widgets}{label}{file}; + unless (-f $w->get_text) { $in->ask_warn(N("Notice"), N("You must choose an image file first!")); return 0; } |