From 702d47173101dd8bb132cb22170f38bf82b55344 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 5 Feb 2004 13:34:08 +0000
Subject: - add ->prepare_write to allow comparing raw_X's - ensure
 "config_changed" is returned only if the config file really changed

---
 perl-install/Xconfig/xfree.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'perl-install/Xconfig/xfree.pm')

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) = @_;
-- 
cgit v1.2.1