summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfig/xfree.pm20
1 files changed, 13 insertions, 7 deletions
diff --git a/perl-install/Xconfig/xfree.pm b/perl-install/Xconfig/xfree.pm
index 69c1b307e..583229f4b 100644
--- a/perl-install/Xconfig/xfree.pm
+++ b/perl-install/Xconfig/xfree.pm
@@ -19,8 +19,8 @@ sub read {
#- files are optional
sub write {
my ($both, $xfree3_file, $xfree4_file) = @_;
- $both->{xfree3}->write($xfree3_file);
- $both->{xfree4}->write($xfree4_file);
+ $both->{xfree3} ? $both->{xfree3}->write($xfree3_file) : unlink($xfree3_file);
+ $both->{xfree4} ? $both->{xfree4}->write($xfree4_file) : unlink($xfree4_file);
}
sub empty_config {
@@ -53,15 +53,21 @@ sub set_monitors { set_both('set_monitors', @_) }
sub get_both {
my ($getter, $both) = @_;
- my @l3 = $both->{xfree3}->$getter;
- my @l4 = $both->{xfree4}->$getter;
- merge_values(\@l3, \@l4);
+ if ($both->{xfree3}) {
+ $both->{xfree4}->$getter;
+ } elsif ($both->{xfree4}) {
+ $both->{xfree3}->$getter;
+ } else {
+ my @l3 = $both->{xfree3}->$getter;
+ my @l4 = $both->{xfree4}->$getter;
+ merge_values(\@l3, \@l4);
+ }
}
sub set_both {
my ($setter, $both, @l) = @_;
- $both->{xfree3}->$setter(@l);
- $both->{xfree4}->$setter(@l);
+ $both->{xfree3}->$setter(@l) if $both->{xfree3};
+ $both->{xfree4}->$setter(@l) if $both->{xfree4};
}
sub merge_values {