- add ->prepare_write to allow comparing raw_X's

- ensure "config_changed" is returned only if the config file really changed

1 files changed, 4 insertions, 0 deletions

diff --git a/perl-install/Xconfig/xfree.pm b/perl-install/Xconfig/xfree.pm
index 8df42bd8a..df6c0d3e0 100644
--- a/perl-install/Xconfig/xfree.pm
+++ b/perl-install/Xconfig/xfree.pm
@@ -20,6 +20,10 @@ sub write {
     $both->{xfree3} ? $both->{xfree3}->write($o_xfree3_file) : unlink($o_xfree3_file);
     $both->{xfree4} ? $both->{xfree4}->write($o_xfree4_file) : unlink($o_xfree4_file);
 }
+sub prepare_write {
+    my ($both) = @_;
+    ($both->{xfree4} || $both->{xfree3})->prepare_write;
+}
 
 sub empty_config {
     my ($class) = @_;