From 8cad0151366e0af6966b296785f26179e417e4e2 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 9 Sep 2005 14:40:48 +0000
Subject: perl_checker fixes

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

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index 3f3ed2957..000e28871 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -183,7 +183,7 @@ sub choose_image {
     $file_dialog->destroy;
 }
 
-sub choose_color() {
+sub choose_color {
     my ($var) = @_;
     my $color = gtkshow(Gtk2::ColorSelectionDialog->new(N("Color selection")));
     print "Current color $var: $theme{conf}{$var}\n";
@@ -223,7 +223,7 @@ sub get_scale_max {
     my ($name) = @_;
     if ($name =~ /size/) { return 100 }
     if ($name =~ /transp/) { return 255 }
-    $theme{$name =~ /[xw]$/ ? "res_w" : "res_h"}
+    $theme{$name =~ /[xw]$/ ? "res_w" : "res_h"};
 }
 sub apply_scale {
     my ($name) = @_;
-- 
cgit v1.2.1