diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-09 16:19:44 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-09 16:19:44 +0000 |
commit | f464e56d5402ac8585252773fcb41968148c2bc5 (patch) | |
tree | fbd0487807fb36bfbde8ee16832be6a9333be394 /perl-install/standalone | |
parent | bdd3c581cde1d9fed4cf5c42062a83cec3fbb1ce (diff) | |
download | drakx-f464e56d5402ac8585252773fcb41968148c2bc5.tar drakx-f464e56d5402ac8585252773fcb41968148c2bc5.tar.gz drakx-f464e56d5402ac8585252773fcb41968148c2bc5.tar.bz2 drakx-f464e56d5402ac8585252773fcb41968148c2bc5.tar.xz drakx-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')
-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; } |