summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index de786a1a6..50a426b44 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -48,7 +48,7 @@ unless ($::no_ugtk_init) {
Gtk2->init;
c::bind_textdomain_codeset($_, 'UTF8') foreach 'libDrakX', @::textdomains;
$::need_utf8_i18n = 1;
- Gtk2->croak_execeptions() if 0.95 < $Gtk2::VERSION;
+ Gtk2->croak_execeptions if 0.95 < $Gtk2::VERSION;
}
@@ -327,7 +327,7 @@ sub create_box_with_title {
my $scroll = create_scrolled_window(gtktext_insert($wtext, $text));
my $width = 400;
$scroll->signal_connect(realize => sub {
- my $layout = $wtext->create_pango_layout ($text);
+ my $layout = $wtext->create_pango_layout($text);
$layout->set_width(($width - 10) * Gtk2::Pango->scale);
$wtext->set_size_request($width, min(200, ($layout->get_pixel_size)[1] + 10));
$scroll->set_size_request($width, min(200, ($layout->get_pixel_size)[1] + 10));