summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2008-03-14 16:15:53 +0000
committerOlivier Blin <oblin@mandriva.com>2008-03-14 16:15:53 +0000
commita126b893c7d4bfddedec65642dc38c09fa37e939 (patch)
tree92667cb99db5039ca9950202c6985135e2a92f6f /perl-install
parent234552eaddb712a1092b0c7bc4db06b501c2be64 (diff)
downloaddrakx-a126b893c7d4bfddedec65642dc38c09fa37e939.tar
drakx-a126b893c7d4bfddedec65642dc38c09fa37e939.tar.gz
drakx-a126b893c7d4bfddedec65642dc38c09fa37e939.tar.bz2
drakx-a126b893c7d4bfddedec65642dc38c09fa37e939.tar.xz
drakx-a126b893c7d4bfddedec65642dc38c09fa37e939.zip
perl_checker fixes
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index cfb0c5d81..f8b93ab22 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -353,7 +353,7 @@ sub create_box_with_title {
} else {
my $new_label = sub {
my ($txt) = @_;
- ref($txt) ? $txt : gtknew('WrappedLabel', text_markup => $txt, width=> 490);
+ ref($txt) ? $txt : gtknew('WrappedLabel', text_markup => $txt, width => 490);
};
gtkpack__($box,
if_($::isWizard, gtknew('Label', height => 10)),
@@ -1479,9 +1479,9 @@ sub calc_size {
my ($width, $height) = $layout->get_pixel_size;
my ($pwidth, $pheight) = pixbuf_size($cell);
- return (0, 0,
+ return 0, 0,
$width + $x_padding * 3 + $pwidth,
- max($pheight, $height + $y_padding * 2));
+ max($pheight, $height + $y_padding * 2);
}
sub GET_SIZE {
@@ -1592,7 +1592,7 @@ sub show {
$info->{timeout}->() if $info->{timeout};
$self->process_next;
});
- $notification->show();
+ $notification->show;
}
1;