[PATCH xts 1/3] Fix automatic configuration of BackingStores

[Peter Harris]

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

Signed-off-by: Peter Harris <pharris at 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