summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/Xconfig/xfree.pm12
1 files changed, 7 insertions, 5 deletions
diff --git a/perl-install/Xconfig/xfree.pm b/perl-install/Xconfig/xfree.pm
index 89b06a61f..335187a2f 100644
--- a/perl-install/Xconfig/xfree.pm
+++ b/perl-install/Xconfig/xfree.pm
@@ -47,15 +47,17 @@ sub get_monitor { get_both('get_monitor', @_) }
sub get_monitors { get_both('get_monitors', @_) }
sub set_monitors { set_both('set_monitors', @_) }
+sub is_fbdev { get_both('is_fbdev', @_) }
+
#-##############################################################################
#- helpers
#-##############################################################################
sub get_both {
my ($getter, $both) = @_;
- if ($both->{xfree3}) {
- $both->{xfree4}->$getter;
- } elsif ($both->{xfree4}) {
+ if (is_empty_array_ref($both->{xfree3})) {
+ $both->{xfree3}->$getter;
+ } elsif (is_empty_array_ref($both->{xfree4})) {
$both->{xfree3}->$getter;
} else {
my @l3 = $both->{xfree3}->$getter;
@@ -66,8 +68,8 @@ sub get_both {
sub set_both {
my ($setter, $both, @l) = @_;
- $both->{xfree3}->$setter(@l) if $both->{xfree3};
- $both->{xfree4}->$setter(@l) if $both->{xfree4};
+ $both->{xfree3}->$setter(@l) if !is_empty_array_ref($both->{xfree3});
+ $both->{xfree4}->$setter(@l) if !is_empty_array_ref($both->{xfree4});
}
sub merge_values {