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/xfree.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lib/Xconfig/xfree.pm')

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