summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/draksplash
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-07-09 16:19:44 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-07-09 16:19:44 +0000
commitf464e56d5402ac8585252773fcb41968148c2bc5 (patch)
treefbd0487807fb36bfbde8ee16832be6a9333be394 /perl-install/standalone/draksplash
parentbdd3c581cde1d9fed4cf5c42062a83cec3fbb1ce (diff)
downloaddrakx-backup-do-not-use-f464e56d5402ac8585252773fcb41968148c2bc5.tar
drakx-backup-do-not-use-f464e56d5402ac8585252773fcb41968148c2bc5.tar.gz
drakx-backup-do-not-use-f464e56d5402ac8585252773fcb41968148c2bc5.tar.bz2
drakx-backup-do-not-use-f464e56d5402ac8585252773fcb41968148c2bc5.tar.xz
drakx-backup-do-not-use-f464e56d5402ac8585252773fcb41968148c2bc5.zip
help stupid perl_checker in being able to parse horrible draksplash
despite perl -cw was happy on it
Diffstat (limited to 'perl-install/standalone/draksplash')
-rwxr-xr-xperl-install/standalone/draksplash3
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;
}