From 9d968363c52ee1febd9ff0fce38e2e56acee1270 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 5 Jun 2008 17:10:15 +0000 Subject: create remove_extension() and use it --- lib/Xconfig/xfree.pm | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'lib/Xconfig/xfree.pm') diff --git a/lib/Xconfig/xfree.pm b/lib/Xconfig/xfree.pm index de4fd4b..23c0910 100644 --- a/lib/Xconfig/xfree.pm +++ b/lib/Xconfig/xfree.pm @@ -526,6 +526,16 @@ sub set_load_module { } +################################################################################ +# modules ###################################################################### +################################################################################ +sub remove_extension { + my ($raw_X, $extension) = @_; + my $raw = $raw_X->get_Section('Extensions') or return; + delete $raw->{$extension}; + %$raw or $raw_X->remove_Section('Extensions'); +} + ################################################################################ # ModulePath ################################################################### ################################################################################ -- cgit v1.2.1