From f464e56d5402ac8585252773fcb41968148c2bc5 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 9 Jul 2003 16:19:44 +0000
Subject: help stupid perl_checker in being able to parse horrible draksplash
 despite perl -cw was happy on it

---
 perl-install/standalone/draksplash | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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;
 	  }
-- 
cgit v1.2.1