diff options
Diffstat (limited to 'perl-install/Xconfig/xfree3.pm')
-rw-r--r-- | perl-install/Xconfig/xfree3.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/Xconfig/xfree3.pm b/perl-install/Xconfig/xfree3.pm index 9235f8f96..9b69b3cb6 100644 --- a/perl-install/Xconfig/xfree3.pm +++ b/perl-install/Xconfig/xfree3.pm @@ -86,13 +86,12 @@ sub set_wacoms { sub depths { 8, 15, 16, 24, 32 } sub set_resolution { my ($raw_X, $resolution, $Screen) = @_; - $Screen ||= $raw_X->get_default_screen or return {}; $resolution = +{ %$resolution }; - - #- use framebuffer if Screen is - $resolution->{fbdev} = 1 if val($Screen->{Driver}) eq 'fbdev'; - + if (my $Screen_ = $Screen || $raw_X->get_default_screen) { + #- use framebuffer if Screen is + $resolution->{fbdev} = 1 if val($Screen_->{Driver}) eq 'fbdev'; + } $raw_X->SUPER::set_resolution($resolution, $Screen); } |