[prev in list] [next in list] [prev in thread] [next in thread] 

List:       freedesktop-xorg-devel
Subject:    [PATCH xts 1/3] Fix automatic configuration of BackingStores
From:       Peter Harris <pharris () opentext ! com>
Date:       2013-05-31 20:20:19
Message-ID: 1370031621-18111-1-git-send-email-pharris () opentext ! com
[Download RAW message or body]

xdpyinfo reports NO, WHEN MAPPED or YES, but XT_DOES_BACKING_STORE
expects a 0, 1, or 2.

Signed-off-by: Peter Harris <pharris@opentext.com>
---

This bumps the minimum version of Perl required up to 5.10.

Both RHEL and Debian stable have perl 5.10. Is there anybody out there
who runs XTS on a system that does not also have at least perl 5.10?

 xts5/bin/xts-config.in |   10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/xts5/bin/xts-config.in b/xts5/bin/xts-config.in
index e22ba56..dbe84da 100755
--- a/xts5/bin/xts-config.in
+++ b/xts5/bin/xts-config.in
@@ -1,5 +1,6 @@
 #!/usr/bin/perl -pi.bak
 
+use 5.10.0;
 use warnings;
 use strict;
 use Sys::Hostname;
@@ -135,8 +136,15 @@ BEGIN
 
 	$::vars{"XT_PIXMAP_DEPTHS"} =~ s/,?\s+/ /g;
 
+	given ($::vars{XT_DOES_BACKING_STORE})
+	{
+		$::vars{XT_DOES_BACKING_STORE} = 2 when (/yes/i);
+		$::vars{XT_DOES_BACKING_STORE} = 1 when (/when/i);
+		$::vars{XT_DOES_BACKING_STORE} = 0;
+	}
+
 	foreach my $var (qw(TET_EXEC_IN_PLACE XT_EXTENSIONS
-			XT_DOES_BACKING_STORE XT_DOES_SAVE_UNDERS
+			XT_DOES_SAVE_UNDERS
 			XT_POSIX_SYSTEM XT_TCP XT_LOCAL
 			XT_SAVE_SERVER_IMAGE XT_OPTION_NO_CHECK XT_OPTION_NO_TRACE
 			XT_DEBUG_OVERRIDE_REDIRECT XT_DEBUG_PAUSE_AFTER
-- 
1.7.10.4

_______________________________________________
xorg-devel@lists.x.org: X.Org development
Archives: http://lists.x.org/archives/xorg-devel
Info: http://lists.x.org/mailman/listinfo/xorg-devel
[prev in list] [next in list] [prev in thread] [next in thread]