diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/harddrake2 | 1 | ||||
| -rw-r--r-- | perl-install/ugtk3.pm | 2 |
2 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index c857dbb03..2de7059af 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -309,7 +309,6 @@ $tree->get_selection->signal_connect('changed' => sub { ($current_device, $current_class) = @{$data[$idx]}; if ($idx ne -1) { - use Pango; my %device_fields = map { # The U+200E character is to force LTR display, as what what follows the colon is always in LTR (device names, paths, etc), # this ensures proper displaying of names like /dev/fd0 (otherwise it gets 'dev/fd0/'). diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm index 192d7a6a9..99c4ce5a8 100644 --- a/perl-install/ugtk3.pm +++ b/perl-install/ugtk3.pm @@ -310,7 +310,7 @@ sub markup_to_TextView_format { foreach (@$l) { my ($_txt, $attrs) = @$_; if ($attrs) { - $attrs->{weight} eq 'bold' and $attrs->{weight} = do { require Pango; Pango->PANGO_WEIGHT_BOLD }; + $attrs->{weight} eq 'bold' and $attrs->{weight} = Pango->PANGO_WEIGHT_BOLD; $attrs->{size} eq 'larger' and do { $attrs->{scale} = Pango->scale_x_large; # equivalent to Label's size => 'larger' delete $attrs->{size}; |