summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/draksplash
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-09-09 14:40:48 +0000
committerOlivier Blin <oblin@mandriva.org>2005-09-09 14:40:48 +0000
commit8cad0151366e0af6966b296785f26179e417e4e2 (patch)
tree174baa8e867f029b0f47a485a032b9a08dd400a4 /perl-install/standalone/draksplash
parent1a58914e116a5c7188f754e5904b78ce419619c2 (diff)
downloaddrakx-8cad0151366e0af6966b296785f26179e417e4e2.tar
drakx-8cad0151366e0af6966b296785f26179e417e4e2.tar.gz
drakx-8cad0151366e0af6966b296785f26179e417e4e2.tar.bz2
drakx-8cad0151366e0af6966b296785f26179e417e4e2.tar.xz
drakx-8cad0151366e0af6966b296785f26179e417e4e2.zip
perl_checker fixes
Diffstat (limited to 'perl-install/standalone/draksplash')
-rwxr-xr-xperl-install/standalone/draksplash4
1 files changed, 2 insertions, 2 deletions
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) = @_;