From 508807bd4d416356dbfb5fc7fc8513eba2593cc9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 5 Jun 2008 17:32:42 +0000
Subject: create set_extension() and use it

---
 lib/Xconfig/various.pm | 3 +--
 lib/Xconfig/xfree.pm   | 5 +++++
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/lib/Xconfig/various.pm b/lib/Xconfig/various.pm
index a762f0c..1ba652e 100644
--- a/lib/Xconfig/various.pm
+++ b/lib/Xconfig/various.pm
@@ -116,8 +116,7 @@ sub config {
 	    $card->{Options}{AddARGBGLXVisuals} = undef;
 	}
     } else {
-	my $raw = $raw_X->get_Section('Extensions') || $raw_X->add_Section('Extensions', {});
-	$raw->{Composite} = { 'Option' => 1, val => 'Disable' };
+	$raw_X->set_extension('Composite', 'Disable');
 
 	if ($card->{Driver} eq 'nvidia') {
 	    delete $card->{Options}{AddARGBGLXVisuals};
diff --git a/lib/Xconfig/xfree.pm b/lib/Xconfig/xfree.pm
index edb1541..684861f 100644
--- a/lib/Xconfig/xfree.pm
+++ b/lib/Xconfig/xfree.pm
@@ -540,6 +540,11 @@ sub get_extension {
     my $raw = $raw_X->get_Section('Extensions');
     $raw && $raw->{Composite} && $raw->{Composite}[0]{val};
 }
+sub set_extension {
+    my ($raw_X, $extension, $val) = @_;
+    my $raw = $raw_X->get_Section('Extensions') || $raw_X->add_Section('Extensions', {});
+    $raw->{Composite} = { 'Option' => 1, val => $val };
+}
 
 ################################################################################
 # ModulePath ###################################################################
-- 
cgit v1.2.1