perl_checker fixes

1 files changed, 2 insertions, 2 deletions

diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index cebc80d3b..0f571f51a 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -182,7 +182,7 @@ unless ($::isEmbedded) {
     $window->{rwindow}->set_border_width(5);
     $window->{window}->add($first_vbox);
     $window->{rwindow}->set_position('center');
-    $window->{rwindow}->show_all();
+    $window->{rwindow}->show_all;
 #&show_act(\%first);
 }
 
@@ -430,7 +430,7 @@ sub make_boot_frame() {
 		$color->colorsel->set_current_color(Gtk2::Gdk::Color->new(@rgb));
 		$color->cancel_button->signal_connect(clicked => sub { $color->destroy });
 		$color->ok_button->signal_connect(clicked => sub {
-			my $colour = $color->colorsel->get_current_color();
+			my $colour = $color->colorsel->get_current_color;
 			@rgb = map { dec2hex($_*255) } ($colour->red, $colour->green, $colour->blue);
 			$theme{boot_conf}{pc} =  "0x$rgb[0]$rgb[1]$rgb[2]";
 			$color->destroy;